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Introduction 


The  primary  purpose  of  the  project  vas  the  development  of  a  computer  program 
or  complex  of  programs  for  an  IBM  7Ch  computer  system  to  assess  casualty  rate 
resulting  from  attack  of  CW  weapon  systems. 

The  programs  devised  have  the  capability  of  accepting  as  input,  or  generating 
according  to  prescribed  rules  the  following  data  directly  associated  with  the 
casualty  producing  mechanisms. 

(i)  CW  munition  impact  distributions, 

(ii)  CW  munition  unit  concentration  functions, 

(ill)  Impact  area  geometric  configurations, 

(iv)  Target  area  personnel  distributions, 

(v)  Personnel  breathing  functions  for  various  activity  or  work 
levels,  and 

(vi)  Personnel  dose-response  functions. 

As  a  result  of  this  input  the  program  can  assess  casualties  and  express  the  results 
in  several  forms  of  output. 

The  general  problem  solved  by  the  Monte  Carlo  technique  can  be  stated:  For 
a  given  CW  attack  on  an  area  target  with  a  specified  CW  toxic  agent  delivery 
weapon  system,  for  a  given  distribution  of  target  personnel  performing  at  a  speci¬ 
fied  activity  level  or  work  rate,  find  the  expected  distribution  of  casualties  and 
the  variance  on  this  expected  distribution  over  Borne  specified  time  period. 

The  remaining  sections  of  this  report  present  the  essential  elements  of  the 
problem  by  first  specifying  the  functions  involved,  and  indicating  how  these 
functional  relations  are  utilized  to  produce  a  solution. 
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Basic  Hemeats 


The  information  desired  can  he  determined  in  terms  Of. the  following  has id 
elements) 

(1)  The  equation  describing  the  dissemination  of  agent  from  each 
munition, 

(ii)  The  position  and  arrival  time  of  each  munition, 

(ill)  The  distribution  of  personnel, 

(iv)  The  equations  describing  the  breathing  behavior  of  the  personnel, 
and 

(v)  The  equations  describing  the  biological  effect  of  the  agent  or 
the  dose-response  functions. 

Because  Of  the  probabilistic  nature  of  the  above  basic  elements,  a  Monte 
Carlo  simulation  wa's  indicated.  In  general,  Monte  Carlo  technique  approximates 
a  solution  to  a  physical  problem  by  means  of  statistical  sampling.  Since  any  of 
items  (i)  -  (v)  may  in  Borne  cases  be  empirical*,  it  was  desirable  to  maintain 
provision  for  optimal  empirical  data  where  applicable.  This  was  done  insofar  as 
practicable.  However,  the  complexity  encountered  in  the  physical,  computational 
and  statistical  aspects  of  the  problem  did  impose  several  important  restrictions 
on  the  input  parameters  allowed  by  the  model.  Certain  of  these  arise  conceptually 
since  the  empirical  data  may  contain  implicit  reatrictions,  but  most  come  about 
for  numerical  or  computational  convehirasaa. 


♦Empirical  here  and  elsewhere  in  the  report  does  not  necessarily  mean  experimental, 
but  rather  data  frcm  sane  source  outside  the  model. 


Munition  Distribution 


The  Impact  pattern  distributions  formed  by  weapon  delivery  systems  fall 
Into  two  general  classes »  First  is  the  uniform  class;  a  typical  example  of 
this  distribution  is  the  system  consisting  of  large  numbers  of  agent-filled 
hooblets  released  from  a  cluster  or  missile.  Second  1b  the  class  of  elliptical 
normal  distributions}  a  typical  example  of  this  group  is  toxic  agent  filled 
rocket  systems.  On  the  other  hand  impact  co-ordinates  can  also  be  obtained 
directly  from  field  tests. 

In  the  Monte  Carlo  cumputer  program,  munition  impact  patterns  may  be 
either  empirical  or  defined  by  specified  functions  over  specified  geometric 
regions.  Allowable  geometric  configurations  are  rectangles  and  circles} 
Allowable  impact  distribution  functions  are  uniform  and  circular  or  elliptical 
normal. 

With  respect  to  time,  munition  arrivals  are  either  simultaneous  or  con¬ 
sidered  as  successive  setB  of  simultaneous  arrivals  occurring  at  specified 
discrete  time  increments.  If  the  munition  arrival  points  are  empirical,  they 
must  lie  within  the  prescribed  configuration  Bince  many  of  the  bookkeeping 
parameters  are  constructed  as  functions  of  the  dimensions  of  the  impact  area.  <■ 
If  the  unit  toxic  agent  dissemination  function  is  empirical  all  arrival  points 
whether  read  or  computed  are  rounded  to  grid  points. 
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Agent  Dissemination  Function 


The  agent  dissemination  function  may  "be  either  empirical  or  analytical. 

If  empirical,  each  munition  is  assumed  to  produce  a  rectangular  dosage 
pattern  symmetric  about  the  mean  wind  direction.  Source  strength,  wind 
direction,  and  source  strength  decay  are  implied  in  this  array  hy  the  values 
appearing  and  the  mesh  sizes  assumed.  The  mesh  sizes  in  the  two  directions 
may  differ  from  each  other,  but  both  must  remain  of  fixed  size  for  any  single 
computer  run. 

Although  there  are  four  types  of  agent  dissemination,  instantaneous  and 
non-instantaneous  for  both  point  and  volume  sources,  there  is  a  single  concen¬ 
tration  function  which  represents  all  types. 

The  agent  dissemination  function  defining  the  concentration  of  agent  at 
point  (X,Y)  at  time  t  for  a  single  impact  at  point  (€;  ,t})  is  given,  in  terms 
of  the  differences} 

x  -  X  -  £ 
y  «  Y  -  n 


(ut-xy 


/\j[x,y,t) 


-b(t-  i 

2 A  ft  [l-ae  “  ]« 


Xx(tp  +  ax  )  ky(tp  +  ay) 


<3/%Ax ys(tp  +  ax)  (tp  +  a  )  (tp  +  az) 


z<*  ,  y,t)  ■  0  when  x  <  0,  t  <• 0. 


The  agent  dissemination  function  defining  the  dosage  at  point  (X,Y)  over 
time  interval  [o,T]  for  a  single  impact  at  ,  tj)  is  given  by: 

,T 

D(x^y<T)  -  J  (x,y,  t)dt 


to 


The  integration  is  approximated  by  a  saddle-point  technique  and  becomes) 


D(x,y,T) 


tl-ae  -t<T-  5  >)  .  '  ‘  ♦V”)3 

— - - - - - - -  - - — 

„  «7Vz(xP+ay^)  (X&  fOzUP) 


and  erf(s) 


Case  I 


If ,  a  m  a  m  a  «  0.  a  4  0 
'  x  y  z 

Then:  ^C(xfy,t)  and  D(x, y,T)  represent  non-instantaneous  point  source 
dissemination  functions. 

Case  II 


If  a  ^  0,  a  i  0,  a  i  0,  a  4  0 
^  y  * 

Then  £<x  ,y,  t)  and  D(x,y,T)  represent  non- instantaneous  volume  source 
dissemination  functions. 


Case  III 

If  a  -  0,  a  »  a  -  a  =0.  Then  la,  ,y,t)  and  D(x,y,T)  represent 
x  y  2 

instantaneous  point  source  dissemination  functions. 


Case  IV 

If  a  -  0,  ctx  4  0,  ay  4 

Then  *<«  ,y,t)  and  D(x,y,T) 
functions : 


0.  a  4  0 
‘  z  “ 

represent  instantaneous  volume  source  dissemination 
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%<*  ,y,t)  ■  concentration  function 
D(x,y,l)  m  dosage  function. 

If  any  a.,  for  j  ■  x,y,  or  z,  ia  zero  then  every  Of,  ia  zero. 

J  J 

If  any  (Xy  ie  not  zero,  every  a j  must  he  non  zero. 

Definition,  units  and  ranges 

X  «•  agent  recovery  factor,  (  a  numeric]  0  <  X  <  l) 

Qq-  unit  source  strength  (  milligrams ;  10  <  <  10^  ) 

u  >•  mean  wind  speed  (  meters/minute jl  <  u  <  10^  ) 

T  *  time  (minutes j  0  <  T  <  30) 
t  m  time  (minutes}  0  <  t  <  l) 

0  *  a  numeric  (associated  with  wind  stability)  -2  <  P  <  2) 

k  ,k  ,k  ■  agent  diffusion  parameters 
x  y  z 

(l  <  k  <  105j  0  <  k  <  105)  0  <  k  <  105) 

“  x  —  y  -  z 

a  ,a  ,a  «•  dimensions  of  volume  source  (metersj  0  <a  <  1.0) 

*  v  *  J 

a,h  m  numerics,  associated  with  decay  of  source  strength. 


(0  <  a  <  1.0)  0  <  h  <  10.0) 


D(x,y,T)  -  dosage  at  (x,y)  for  time  interval  (0,T),  '  m.lnut.e^ 

(meter) * 
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Personnel  Distribution  and  Breathing  Behavior 


Personnel  distribution  on  the  target  plane  is  either  empirical  or  generated, 
where  the  generated  distribution  is  uniform.  Other  distributions  can  be 
incorporated  rather  easily,  but  it  was  not  clear  that  any  gain  would  have  been 
made  in  the  realism  of  the  model  by  so  doing. 

The  average  cumulative  breathing  function  is  computed  by 

B(T)  -  C0  +  CjT  +  CgT2 

where  Cq,  C^,  and  Cg  are  input  parameters  which  are  determined  by  the  activity 
level  of  personnel  involved. 

For  any  particular  computer  run  all  personnel  are  assumed  to  be  performing 
at  the  same  activity  level  and  hence  have  the  same  breathing  function.  The  dose 
at  a  point  (x^T^is  defined  as: 

-*<x  ,y,T)  -  f  B(t)  X(x,  y,t)dt  and  is  approximated  by 

o 

o^foyjT)  «  B  (T)  D(x,y,T) 


where : 


B(T)  «■  average  cumulative  breathing  rate  function. 


V 
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Dose  Response  Functions 


Three  methods  are  available  for  evaluating  the  dose  response  or  casualty 
probabilities.  First  the  probability  of  a  casualty  PQ  at  a  point  (x,y)  at  time 
T  is  determined  by  means  of  a  dose  threshold  This  method  merely  provides 

a  yes-no  casualty  assessment  for  each  point  of  the  target  sampled  where  people 
are  assumed  to  be  located.  The  number  of  such  points  with  dose  values  >J$ 
is  divided  by  the  total  number  of  points  to  get  the  fraction  of  casualities  for 
a  single  computer  run. 

A  second  method  is  to  form  a  frequency  distribution  of  dose  values  over 
the  entire  target  area.  This  frequency  dose  distribution  is  then  used  to  com¬ 
pute  a  casualty  frequency  distribution  by  multiplying  the  average  dose  value 
for  each  class  interval  by  its  frequency  and  using  the  product  to  compute  p 


where 


■(a  -5)  +  b  in 
'o'  o 


p.  (c,y,T)  = 


where  a^  and  are  parameters  reflecting  the  virulence  of  the  agent.  A 
frequency  distribution  of  Fc  is  then  formed  by  counting  points  in  the  intervals 

x  <  P  <  +  .05  where  x  =  n(.Q5)  where  0  <  n  <  19 

C  “  ’ 

A  third  method  is  to  compute  at  each  point  (x,y)  for  time  T  and  tallying 

the  p  t  in  the  proper  clue-  lub-vvu 1. 

CJ 

In  all  cases  the  first  five  moments  are  computed  using: 


■n 

1  'S  VT 

=  H  1 c/CJ. 


In  cases  two  and  rce  the  first  five  moments  are  also  calculated  as  follows: 


for  r  =  1,  2,  2,  4,  5  vhcre 


M 

l  'v"  i 
m  ss  —  /  P 

M  Z_  c 


K  is  the  number  of  dose  values  on  the  target,  is  the  dose  at  the  ith  target 
point,  and  M  is  the  number  of  values  on  the  target  or  the  frequencies  in  the 
distribution. 
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Internal  Statistics  of  Model 


For  the  cases  in  which  the  agent  dissemination  function  is  not  replaced  by 
an  empirical  pattern, the  program  features  a  self- controlling  mesh  size  provision. 
Subject  to  an  arbitrary  upper  limit  on  the  number  of  changes  possible,  the  program 
will  alter  the  density  of  points  in  the  sampling  grid  until  the  arithmetic  mean 
threshold  criterion  has  been  met.  In  practice  this  provides  for  successive 
iterations  using  a  varying  sample  point  density  until  the  successive  mean  values 
of  Pc  have  stabilized.  For  the  empirical  pattern  case  this  feature  is  not  appli¬ 
cable  because  of  the  intrinsic  geometric  restrictions.  The  seme  goal  may  be 
accomplished  by  manual  intervention  to  the  simulation  and  off -machine  data 
manipulations. 

Since  in  individual  cases  input  distributions  are  transformed  into  output 
numbers,  there  must  be  run  in  any  Monte  Carlo  scheme  a  sufficient  number  of  cases 
for  the  output  numbers  themselves  to  form  a  stabilized  distribution.  A  discussion 
of  the  statistical  design  of  the  input  and  the  interpretation  and  validity  of 
output  is  beyond  the  scope  of  this  report.  The  program  does  provide  a  tool 
by  which  the  effect  of  various  parameters  may  be  studied.  A  discussion  of  the 
internal  statistical  aspects  of  the  problem  iB  in  order. 

The  random  number  generation  1b  done  by  the  usual  multiplicative  scheme 
UBing  the  largest  power  of  five  which  can  be  held  by  the  computer  (5^)  as  a 
multiplier.  Each  random • number  of  the  sequence  is  generated  as  the  normalized 
low  order  part  of  the  product  of  the  multiplier  times  the  unnormal'lzed  preceding 
number  from  the  sequence.  The  sequence  thus  produced  has  a  period  of  9^3  or  Qbout 

1010. 

Uniformly  distributed  variables  are  then  constructed  as 

V  *  Vn 

where  V  is  the  random  variable,  V  „  and  V  .  are  upper  and  lower  limitB  of  the, 

max  min 

variable  and^is  a  random  number  from  the  sequence  normalized  bo  that 


0  <^<  1. 


Normally  distributed  variables  are  constructed  as 

12 


v -ckTs  v  <  v 

0  V  -  o 


+  <3 

y 


// 


v 


where  VQ  Is  the  mean  v&lue  and^^  1b  a  normalized  random  number. 

Since  for  some  values  a  point  can  be  properly  within  the  distribution  and 
outside  the  limits  of  regions  specified  elsewhere,  the  distribution  actually 
used  for  calculations  is  that  determined  by  the  intersection  of  the  specified 
distribution  and  the  specified  geometric  configuration.  An  example  is  the  point 
x, y  in  a  circle  in  which 


X  .  <  X  <  X 

min  max 


and 


ymin  <  y  <  ymax 


but 


V  <»-*/  +  (y-y/  >  ^4 — 


For  convenience  in  recreating  any  particular  machine  run  and  as  a  protection 
from  bias  due  to  using  too  small  a  subset  of  the  random  number  sequence,  the  last 
random  number  of  the  sequence  is  printed  with  the  usual  output  from  each  problem. 
If  another  problem  is  begun  immediately,  the  printed  number  may  be  ignored.  If 
this  was  the  last  problem  of  the  set  or  if  manual  intervention  of  the  calculations 
was  necessary,  there  is  provision  for  reading  in  this  "starting  value"  for  the 
random  number  generator  as  an  input  parameter. 


The  randan  variates,  impact  locations  and  personnel  distribution  can  be 

varied  and  the  output  Btudied  to  establish  confidence  bounds  on  the  frequency 

distributions,  P  and  the  moments  and  to  determine  the  number  of  machine  runB 
c 

required  to  produce  statistical  stability. 

Once  confidence  bounds  are  established,  the  model  may  be  used  to  study  the 
influence  of  the  individual  characteristics  of  a  CW  weapons  system.  Parameters 
may  be  varied  either  individually  or  in  subsets  and  the  output  used  in  the  design 
of  more  efficient  CW  weapons  systems. 


Both  the  Overlay  Program  and  the  Analytic  Dissemination  Program  were 
written  in  SAP  language.  These  were  assembled  into  machine  language  by 
BSBELL  SAP  3-7  assembly  system. 

Pertinent  manuals: 

Bell  Telephone  Laboratory  BESYS2  Manual 

National  Bureau  of  Standards  BSBEL  Manual 

United  Airlines  SAP  3-7  Manual 

(share  716) 

IBM  Reference  Manual  A22-6500-3 
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Description  of  the. Overlay  Program 

The  program  computes  the  dose  or  dosage  at  all  points  on  a  target  plane 
as  a  result  of  an  arbitrary  number  of  munitions  which  are  distributed  within 
a  geometric  configuration  or  impact  area  on  the  plane. 

Each  munition  is  assumed  to  produce  a  rectangular  unit  dissemination 
pattern  symmetric  about  the  mean  wind  direction.  This  pattern  is  called 
the  unit  dissemination  grid  or  udg.  The  wind  direction  is  assumed  to  be 
parallel  to  the  x  axiB  and  in  the  di rection  of  increasing  x.  The  input 
section  of  the  routine  takes  advantage  of  the  symmetry  by  reading  only 
the  half  pattern  and  reflecting  all  entries  except  those  for  the  center 
line. 

The  impact  area  may  be  either  a  circle  or  a  rectangle,  and  munitions 
may  be  distributed  within  this  area  either  with  a  uniform  random  or  an  elliptical 
normal  distribution  or  they  may  be  read.  All  munition  co-ordinates  are 
rounded  toward  the  center  of  the  impact  area  to  a  grid  point.  A  point 
lying  on  the  boundary  of  the  impact  area  1b  considered  within  the  area. 

The  target  plane  is  constructed  aB  a  function  of  the  dimensions 
of  the  udg  and  the  impact  area  to  be  the  minimum  rectangle  circumscribing 
all  grid  points  which  could  be  affected  by  any  munition  arriving  in 
the  impact  area.  The  length  of  the  target  area  is  that  of  the  impact 
area  plus  that  of  the  udgj  the  width,  that  of  the  impact  area  pluB  twice 
the  half  width  of  the  udg  rounded  to  the  next  highest  even  number  of 
grid  points. 

The  memory  map  technique  is  used’ for  the  overlay.  Half  words  (l8 
bits)  are  UBed  for  each  target  area  grid  point,  and  whole  words  (36  bits) 
are  used  for  each  point  of  the  udg.  Munitions  are  genera. ted  or  read 
and  overlaid  singly  so  that  the  memory  storage  required  is  independent  of 
the  number  of  munitions.  The  maximum  size  of  a  problem  vhieh  may  be 
run  is  dependent  only  on  the  dimensions  of  the  two  grids. 

If  M  is  the  length  of  the  impact  area, 

H  is  the  width  of  the  impact  area, 
mis  the  length  of  the  udg, 
n  is  the  width  of  the  udg, 


ff 


A»  is  the  length  mesh  size,  and 
An  is  the  width  mesh  size, 

a  problem  which  may  be  run  must  satisfy  the  inequalities: 


m»n  +  i  (m  +  m)  (K  +  n  -i-  3) 
Am*  An 


2756k 


and 


---  -  <  200  (this  must  be  satisfied  only  if  the 

target  map  is  to  be  printed. ) 

Because  of  timing,  this  program  should  be  used  instead  of  the  analytic 
dissemination  function  program  described  in  Appendix  II  if  the  product  of  the 
number  of  points  on  the  target  times  the  number  of  munitions  is  large  (more 
than  300,000)  and  the  dimensions  are  such  that  the  two  inequalities  are 


satisfied. 

Although  13  bits  are  used  to  represent  each,  grid  point,  only  17  arc 
available  for  storage  of  dose,  dosage,  or  concentration.  The  leading  bit  is 
alvays  used  to  indicate  whether  the  point  is  inside  or  outside  the  impact 
area.  The  maximum  permissible  value  is  therefore  2^  -  1  or  131,071. 

The  routine  substitutes  this  maximum  value  fox-  any  v.alue  calculated  which 
exceeds  the  maximum.  The  all. 01/able  non- zero  range  is  all  integers  less 
than  131,072;  since  this  is  a  rather  limited  range,  there  is  provision  in 
tho  routine  for  scaling  the  input  udg  for  internal  calculations  and  restoring 
the  scaling  to  Chat  of  the  input  for  output.  Thin  device  doors  not  increase 
the  precision  of  the  calculations  but  does  permit  all  problems  to  use  the 
came  sealing  for  all  udg1 3  without  avoidable  loos  of  precision.  All 
calculations  except  the  moments  arc  done  in  fixed  point  arithmetic;  the 
moments  and  target  area  sums  arc  printed  in  floating  point  form. 

The  routine  will  operate  on  any  32K  IBM  704  with  at  least  two  magnetic 
tape  units  ana  an  on-line  printer. 


In 

All  data  input  is  from  magnetic  tape  although  it  could  be  from  cards 
with  a  cMuigo  of  two  instructions.  .Ml  data  is  in  a  card  length  format  to 
conform  to  the  requirements  of  tho  GAME  input  subroutine  used.  Tno 
subroutine  requires  that  columns  1-7  end  coltson  11  be  blank  and  that  columns 
3-10  be  DEC.  Columns  12-72  contain  the  d;m,  c-ach  field  an  integer 
less  than  ox1  ecual  to  eleven  digits  in  length  with  fields  separated  by 
cou-iius;  there  s.u-y  be  no  data  following  a  blank  column  on 
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the  card  since  the  input  routine  controls  on  a  blank  as  the  end  of  an 
input  record.  Columns  73-80  are  not  read  by  the  704-  so  are  normally 
used  for  information  to  facilitate  card  manipulation  either  manually  or 
with  EAM  equipment.  If  the  data  required  for  a  single  item  exceedB  the 
sixty-one  columns  available  on  a  single  card,  the  remaining  information 
may  be  put  on  a  trailer  card  with  the  same  format.  Restrictions  for  a 
trailer  card  are  that  a  field  must  not  be  split  between  two  cards,  and  that 
a  comma  not  be  used  following  the  last  data  field  on  the  leading  card. 
Multiple  trailer  cards  may  be  used  in  the  same  manner.  Since  all  input 
field  lengths  are  variable,  any  type  of  input  card  described  may 
actually  be  a  group  of  two  or  more  cards.  The  flow  chart  indicates  the 
organization  of  the  routine  but  does  not  approach  an  instruction 
by  instruction  paraphrase  of  the  routine. 

Input  Cards : 

I.  Card  1  is  the  identification  card. 

A.  Field  1  is  the  udg  identification  number.  It  is  not  used 

by  the  routine  except  to  print  back  for  output  identification. 

B.  Field  2  is  the  number  of  x  mesh  points  in  the  udg  or  the  number 
of  cards  in  the  udg  input. 

C.  Field  3  is  the  number  of  y  mesh  points  in  the  input  (half) 
udg.  Normally  this  is  the  number  of  fields  on  each  of 

the  udg  cards,  but  it  may  be  less  .han  the  number  of  fields 
if  part  of  a  larger  udg  is  being  used. 

D.  Field  k  is  the  x  mesh  size  of  the  udg. 

E.  Field  5  is  the  y  mesh  size  of  the  udg. 

F.  Field  6  is  the  scaling  factor  uned  for  the  udg.  It  is 

the  power  of  two  by  which  the  dOBes,  dosages,  or  concentrations 

will  be  divided  for  the  internal  calculations. 

G.  Field  7  in  a  dimension  of  the  impact  area;  the  radius,  if 
the  area  is  a  circle;  the  x  half  length  if  the  area  is  a 
rectangle.  If  negative,  the  absolute  value  is  used  as 
dimension  and  munitions  are  read. 

H.  Field  8  is  zero  if  the  impact  area  is  a  circle;  the  y  half 
length  if  the  area  1b  a  rectangle. 

I.  Field  9  1b  zero  if  the  munition  distribution  is  uniform,  <f*" 

x 

if  dlotribution  is  normal. 


J.  Field.  10  Is  zero  if  the  munition  distribution  Is  uni  from, 
fl—  if  distribution  is  normal. 

y 

K.  Field  11  Is  the  number  of  munitions;  if  negative,  the  absolute 
value  Is  the  number  of  munitions  and  the  target  map  print 

is  omitted. 

L.  Field  12  is  the  number  of  replications. 

M.  Field  13  is  an  exit  parameter;  zero  if  there  is  another  problem 
to  follow,  one  if  thiB  is  the  last  problem. 

3J.  Field  ih-  is  the  number  of  class  intervals  for  output.  It  must 
be  a  multiple  of  10,  greater  than  zero  and  less  than  or 
equal  to  100. 

0.  Field  13  is  a  random  number  starting  value  or  zero.  If 

zero,  the  existing  random  number  (in  computer  memory)  is  not 
changed.  If  not  zero,  the  field  is  used  as  a  starting  value. 
Normally  the  first  problem  of  a  set  has  a  non  zero  value 
(from  a  previous  run),  and  the  remaining  problems  of  the  set 
have  zeroes. 

P;  Field  16  is  the  number  of  probit  classes  or  zero  if  probit 
output  is  not  used. 

II.  Card  2  -  These  appear  only  if  probit  output  iB  to  be  used.  There 
are  enough  cards  of  this  type  to  contain  the  number  of 
fields  specified  in  field  l6  of  card  1.  These  fields 
are  doses  which  correspond  to  each  of  the  probit  clasBeB  in 
the  same  scaling  as  card  J'a. 

III.  Card  3  -  There  are  as  many  of  these  as  are  indicated  in  field  2 
of  card  1.  Each  card  represents  the  udg  half  pattern 
for  an  x  value  implied  by  the  index  of  the  card.  The 
first  card  is  for  x=0  and  the  remaining  for  successive 
integral  multiples  of  Ax.  The  first  entiy  on  each  card 
represents  y  =0,  and  each  of  the  remaining  represents 
points  both  positive  and  negative  successive  integral 
multiples  of  /ty. 

IV.  Card  U  -  is  used  to  check  synchronization  of  dimensions  of  udg 
as  specified  by  card  1  and  as  actually  found  by  the 
routine  in  reading  card  3's.  It  consists  of  ten  fields 
of  99999 • 


V.  Card  5  -  These  appear  only  if  munitions  are  to  he  read  rather 
than  generated.  Each  munition  is  read  from  a  single 
card  containing  an  x  and  a  y  co-ordinate.  For  each 
replication  as  specified  on  the  identification  card 
there  must  be  a  0,0  card  following  the  munition  cards. 
Munitions  lying  outside  the  impact  area  are  rejected} 
the  number  of  munitions  specified  is  overridden  by  the 
number  encountered  which  are  within  the  impact  area. 

The  only  external  manifestation  of  inconsistency 
between  expected  and  found  munitions  occurs  in  the  dose 
or  dosage  sums  print  where  the  two  dose  or  dosage  sums 
will  differ. 

Output i 

I.  On  line  (printer)  output  consists  only  of  operator  instructions 
which  should  be  self-explanatory  and  of  a  print  back  of  card  1 
for  every  problem  plus  a  single  line  print  for  each  replication 
consisting  of:  RUN  aOFb  where  a  is  replication  index  and  b  iB 
total  number  of  replications.  If  the  synchronization  card  does 
not  check  at  the  end  of  udg  input)  there  is  a  print  of  PATTERN 
IS  WRONG  and  run  will  not  continue. 

II.  The  off-line  (magnetic  tape)  output  is  all  on  a  Bingle  tape. 

A.  Card  1  is  printed  each  time  one  is  encountered  as  input 
preceded  by  the  word  INRJT. 

B.  There  is  an  optional  print  of  the  dose  or  dosage  map  of  the 
target  area.  This  is  controlled  by  the  sign  of  field  11  of 
the  identification  ca.rd.  The  column  vectors  are  printed  by 
descending  values  of  x  from  the  maximum  to  zero.  Within  each 
column  the  entries  are  in  order  of  descending  y.  With  each 
column  there  is  a  print  of  the  proper  x  value.  To  reduce 
printing  volume  the  sign  position  of  each  element  printed  is 
used  to  indicate  whether  the  point  1b  inside  or  outside* 

the  impact  area.  A  negative  dose  indicates  that  the  point  1b 
inside  the  impact  area. 
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C.  A  replication  count  is  printed  as  HUN  a  OF  b  just  as  on 
line  print  where  a  is  the  replication  index  and  bis  the 
total  number  of  replications. 

D.  The  dose  or  dosage  sum  print  consists  of  the  following  sums: 

1.  The  udg  sum  with  internal  scaling  as  an  integer. 

2.  The  udg  sum  times  the  number  of  munitions  with  input- 
output  scaling  as  a  floating  point  number. 

3.  The  target  sum  with  input-output  scaling  as  a  floating 
point  number. 

4.  (2)  and  (3)  should  be  equal  unless  some  point  has 
accumulated  more  than  the  maximum  permissible  dose  or 
dosage  or  munitions  have  been  read  and  the  number  expected 
differed  from  the  number  found. 

,  5.  The  format:  DOSE  SUMS  (l)  (2)  (3) 

E.  Two  sets  of  class  interval,  counts  are  printed,  perhaps 
separated  by  the  pro bit  output.  The  class  intervals  are 
determined  by  dividing  the  largest  dose  or  dosage  by  the 
number  of  class  intervals  desired  and  constructing  uniform 
increments  equal  to  the  quotient  rounded  to  the  next  largest 
integer.  The  prints  have  identical  format.  In  each  case 
there  is  a  one  line  print  of  class  intervals,  then  a  line 
with  the  count  of  grid  points  inside  the  impact  area  for 
each  class  interval;  then  the  same  counts  for  points  outside 
the  impact  area.  In  both  cases  the  counts  arc  constructed 
by  including  in  each  interval  all  points  which  arc  greater 
than  or  equal  to  that  interval  but  le3s  than  the  next  larger'. 

1.  The  first  class  interval  print  shows  counts  which  are 
non- cumulative . 

2.  The  probit  output. 

3.  The  second  class  .interval  print  shown  cumulative  counts. 

F.  The  first  five  moments  arc  printed  in  floating  point  as: 

MOMENTS  ARE  M]_  Mg  M  .  If  any  moment  is  >  10^,  it 

cannot  be  calculated  properly,  and  some  incorrect  non- 
predictable  number  will  be  printed  instead. 

0.  The  random  number  starting  value  for  the  next  problem  is 

printed  at  the  end  of  each  problem.  Thin  may  be  used  to  start. 


Jo 


the  next  machine  run  if  a  break  in  the  machine  sequence  is 
necessary. 
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STO  SIGMAY 
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STA  H0XK2+1 
STA  B0XA6 
STA  BOX 47 

SlA  OOxAA+2 
STA  BOXAtl+4 
STA  GOXAN 
STA  UOXT 
LlA  RhAO+13 
STU  NO  111  R 
&UXW1  LxA  2tHO(  1 

TSX  X1NPUT.4 
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ST2  COMMON 
SXO  COMMON, 1 
PXO 

LDO  COMMON 
LRS  18 
MPY  YT  ' 
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LxA  YIP, 4 
U0XR2  CLA  «*,4 
ARS  «* 

STO  »< ,2 
STO  »*>1 

r x l  ♦*i,i, -l 
rxt  •♦1,2,1 

I  IX  UUXR 2,4,1 
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CLA  XMAx 
ADO  II 
LRS  33 
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PAX  0.4 
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4&000920 
460009:H' 
45000940 
4B0009<^jl 
45000946 
46UUO950 
45000960 
46000962 
45Q00963 
4Q00o9t»4 
46000966 
46000966 
45000967 
45UOU960 
46000969 
46000970  * 
46000960 
460009W1 
46OU09U2 
45000940 
46001000 
~  45oolol0  " 
4500 102U 
45oOlO*U 
46001040 
45001060 
45001060 

- 45001070" 

45OO10U0 
45oul09o 
45001100 
45001110 
<♦5001 120 
'  4&o6ll*0 

4600)140 
4500 1 J 50 
46001160 
45001170 
45001 1*<> 

4  600  11  >0 
4  500 1  ZOO 
4500)2  10 
4600 lZ2u 
4  601/U  JO 
4300U40 
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4  500U  1 0 
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00610 
00611 
006U 
00613 
00614 
00615 
00616 
00617 
00620 
00621 
00  6  2  2 
0662  3 
00624 
00625 
00626 
006  2  7 
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46001500 
46001510 
45001620 
450015  3y 
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45001560 
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45001580 
45001500 

460016*10 
45001620 
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45001640 
450U1660 
-45UUI56ff“ 
450016/0 
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45001700 
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”74501711 — 
45001720 
45001721 
45001722 
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04  5017*4 

45ooI7jo  ” 
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4500  W5o 
45001700 
450017/0 
45001780 
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45001840 
45-0018  30 
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450018/0 
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J)06/0  0  04000  0  Ou7 1 7 

“*006/1  -o  50000  00*0/2 
00672  ~0  76000  0  00141 
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STO  TL)IM 
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LXA  IF  #  4 
ST*  XI 
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CLA  XI 
SU13  XO 

•  STO  CUMMuN+3  ~ 
Ct  A  OS I  Ci 
IN 2.  daKLC 
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MPY  COMMON* 3 

vTW  LOMMOH+3 
0X106  CLA  OS 10 
XHl  UXRtC 
CLA  YO 
SUO  Y 1 

STO  C0MM0N+4 
LOO  COMMON +4 
HP Y  COMMON +4 
STO  COMMON* 4 

CLA  COMMON *4 
AOO  COMMON +3 
LOO  KSW 
TLW  OXlU« 

"OX  102  CAL  Mil 
6L  T  1 
CAL  Llil 

UX  107  OKS  *  *  *  4 
CLA  Y  1 
A DP  DfcLY 
STO  Y  I 

T1X  15X1  04  »2  •  1 
CLA  Xl 
ADO  Dt.LX 
STO  XI 
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LX  A  Uf  I  H  »  '* 

i  al  sh-r  T 


DLLT  AX’  " 
KLC1 ANOLl 


J.  7 


45001900 
45001906 
46001910 
46Q01920 
45001930 
1932 
1934 
1936 
46001940 
45001950 " 
45UU1960 
45001970 
460019^0 
460019^0 
45C02000_ 
45002010 
45oo2u2o 
460U20Ju 
45002040 
45002060 
4;>CCU066 
04502000 * 
04  5  02063 
04602006 
45002070 
45U020110 
4&O02O90 
4  6002  lob” 
45002110 
45OU2U0 
46002 130 
46002140 
460  02  150., 
4  a  0  6  160 
,46002170 
46002160 
04  6.  >2  190 
46002200 
4  6vOi.  2  lOL 
46C0222U 
4a 002 230 
46*JOfc  4.40 
4  6  O  'J  j.  2  J  0 
46002200 
46002*70 
45002260 
4600225a 
450u<  *W 
4  51/02  3<;v 
4  500..  310 
46002320 
4  500,.  3 .*0 
4600*.  340 
4  6  v.  U  2  3  6  O 
41 002  300 

4  6  g  Kj 3  /  O 

46C02390 
4  y  v  o  4  3  ;  w 
46v024bO 
4a00«.4JO 
4600^4.-0 
4600*.  4.>0 
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OP  *  200*1 

01334 

2 

OUUol 

1 

01333 

.  .  ..  Tlx 

•'-**  1  •  1  . 
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0 
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Q 
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C 
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0 
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2 
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01340 

0 
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4 
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PAX 
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01341 

-o 
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1 
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PDX 

0.1 

01342 

-0 

UOOO 

0 

01344. 

TMI 

*+2 

01343 

0 

76000 

0 

00141 
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1 

01344 

0 

76500 

0 

00021 

LRS 

17 

01345 

0 

76000 

0 

00001 

LBT 

01346 

0 

02000 

0 

01532 

TRA 

BOXAF 

01347 

0 

50000 

0 

02064 
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IF 

01350 

0 

400UU 

4 

UUU3U 

A  00 

0P.« 

01351 

0 

60100 

4 

00030 

STO 
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01362 

-o 

76000 

0 

00141 
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1 

01353 

0 

02000 

0 

01636 
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01354 

0 
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0 
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IF 

01355 

0 
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1 

00174 

ADD 

OP+lOO.l 

01356 

0 
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1 

00174 

.  STO 

OP *100.1 

01357 

2 
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2 

01336 

TIX 

UOXAL . 2 . 1 

01360 

0 

76000 

0 

00140 

SLF 

01361 

0 

07400 

4 

70007 

TSX 

OUTPUT. 4 

01362 

0 

00011 

0 

01712 

RPPR.0.9 

01363 

-1 

020  11 

0 
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MON 

RF PC .O.RtP 

01364 

0 

074  00 

4 

7U007 

TSX 

OUTPUT. 4 

013*5 

0 
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0 

01  723 
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0  1366 

-l 
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0 
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01367 

0 

074  00 

4 
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f  6X 
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013/0 

0 
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0 

01731 
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01371 

-1 
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0 
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01372 

0 
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0 

01715 
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PI 

013/3 

0 
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0 

0  14  12 
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hOXA  1 

013  74 

0 
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0 

0  1716 
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Po 

013  7  6 

0 
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0 

01415 

STO 
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01376 

0 
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0 

01755 
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013  77 

0 
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1 

02045 
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01400 

0 
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2 

02057 
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01401 

0 
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2 
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01402 
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2 
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2 
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WLAU lO.KL AD39 
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5180 
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OUTPN 1 0 »  9 
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0142/ 

0  40200  0  02070 
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01437 
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CLA  OP 

0  1440 
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0  34000  2  02191 

CAS  PRUT *2 

01461 

1  77777  2  01450 

TXl  *~1  \'l »“  1 

TAULt  LLSS 

01452 

0  76100  0  00000 

NOP 

0  1463 

0  60000  2  01756 

CLA  RE.AD4  i  ,2 

X  LESS 

01454 

0  40000  X  00174 

ADD  OP ♦ 100| 1 

. .  . ... 

01465 
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rsx 
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01537  0 
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ADO 

OP  .  1 
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STO 

OP.l 

01541  0 

02000 

0 
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1 
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LXA 
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0 
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ST2 

X 
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0 
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.  ST 2 

Y 
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07400 

4 

01693 

TSX 
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0 
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01565  0 

76300 

0 
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18 

01566  0 

4  0000 

0 
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X 
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0 
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X 

01560  0 
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4 
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0 
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01562  0 

76300 

0 
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LL  S 

18 
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0 

02050 
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Y 
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0 

02050 
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Y 

01565  2 
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1 

01553 

T1X 
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01566  0 

40200 

0 

02064 
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6C 

01667  o 
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u 
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LRS 

31 
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13 
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50000 

0 

017*6 
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45005720 
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45005740 
46005760 
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45005780 
45005790 
04505800 
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46006820 
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04506850 
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45006870 
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46006930  t 
46005940 
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01610 

0  60100  0  02047 

S70  X 

~ 

-  - - -  - - - 

04306 1 70 

01611 

-0  12000  0  00732 

THI  BOXG 1 

61  74 

_ 01612  . 

_Q.-402QO  .0.0203.6... 

SUB  DI.A _  , _  _ _ _ 

01613 

0  10000  g  ul615 

Tit  *  +  2 

6180 

0 16  LA 

0  12000  0  00732 

TPL  BCXG 1 

6103 

01613 

0  02000  0  00744 

TRA  BGXGR 

043061 VO 

0  1610* 

0  30000  o  02031 

BXRLC 

LLA  KX 

43^06200 

01617 

0  40200  0  01731 

oUB  COMMON* 3 

46006210 

01020 

0  12000  0  01622 

TP-  «+2 

possibly  inside 

_ 460062  20,  . 

01621 

U  02000  0  (0717 

TRA  BX108 

460062)0 

0102.2 

0  60000  0  02023 

CLA  Y! 

46006240 

01623 

0  4.0200  0  02021 

SUB  YO 

45006260 

0  1624 

0  76000  0  00003 

*>SP 

<■>4506253 

01626 

0  36000  0  02032 

LDD  RY 

45006260 

.  01026 

0  04000  0  00  717 

TLQ  B> I 08 

OUTS  1  Dt  „  ^  . 

_  _ 75006270 _ 

01027 

0  02000  0  006  71 

TRA  BXI02 

INslDl- 

4500621)0 

01030 

0  76300  0  00043 

UOXBJ 

LR3  35 

450062V0 

Oloil 

0  02000  0  01133 

TRA  B0XA1 * 2 

45006300 

01032 

0  70300  0  00043 

BOXB2 

LR$  35 

45006310  ' 

01033 

0  02000  0  01140 

TRA  B0XA2+3 

46006320 

01036 

0  U/4UO  A  /oy 13 

tRROR 

I oX  XPR1NI *4 
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01033 

-1  01/31  0  01726 
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45006340 

01636 

0  07400  4  70024 

TSX  LND JOB  >4 

43006  3  30 

01037 

0  30000  0  02100 

kDMN 

LDO  TRA 

04306360  ■ 

OlbAO 

0  70000  0  00003 

3SP 

04306370 

01041 

0  02000  0  00427 

TRA  ROO 
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01062 

-0  6)400  4  02041 
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04506360 
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TXl 
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04306401 
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o  uuuoo  o  uuoyo 

U  t  o »  0 

045O6411  , 
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-1  02040  0  02047 

MON  X.O.Y 

> 

04306412 

01660 

0  30000  0  02030 

LLA  y 

U4506420 

0163  1 
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Ml  UUl 

04506430 

0  1  03  2 

0  02000  0  00 74 A 

TUA  nuxi.K 

04306440  • 

0  103  J 

0  OOuuu  0  UlOGJ 

RDNU 

LOU  RONO-HJ 

RANDOM 

4500/0110 

01 63  A 

0  20000  C  01064 

MPY  K0N0  +  '7 

NUMBLR 

4500/001  ’ 

0163  3 

-0  60000  C  01663 

STO  KONO+B 
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o  loit/ 
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45007006 

OluOl 

0  02000  0  >1666 

TRA  RONO+ 1 L 

01002 

tOJlHklUOOOt  UC 

OC  I  UUUU0UU0U2HU 

4300  /Oo  / 

UlCGJ 

7  3  A  j  2  /  /  c  A  4  6  1  3 

OCT  3432 / 72446 1 3 

4300  / UOU 

U  1 6  0  A 

♦  3432//*.  446. 13. 

OCT  34)277244615 

46U0/U09 

Uloo3 

+200000000000 

OC.T  .’OOOOOUOOOOO 

43007010  • 

0  1006 

0  36000  0  02033 

LUO  21R0 

45007011 

oloo  / 

0  70  .00  0  00032 

Ll<*>  20 

450070 12  ' 

u  lo  to 

0  02000  4  U)001 

TRA  1 » A 

4500/013 

v  10  M 

/A(I0  300  1  J  A  3 

1  U 

PCD  4  16M11NPUM4H4iN  1  ..  . 

»•#.  l 

Olo  /  2 

4704C3U 10443 

010/3 

00  73430104  /3 

0  16 /A 

430634600000 

010/3 

740JJ0OJ0.  1.) 

xpm 

ULO  2(3MOX=Hbl 

010/0 

45  10)46(1407)0 

0  10/7 

740i)0*>00100 

YPkT 

1100  21  111  1  ON  1  1  1 

01/00 

43 U1 01 346060 

0  1  /o  1 

/*♦  lO^UUUL  34  ^ 

1  MIX 

HCU  -M  tttlUC  l  ASS  1  UN  1  1  | 

4600UOU) 

0  1/02 

*  1620200000  1 

1)1(0) 

004  30 1 0  1 3400 

0  1  /  0  A 

/410304O3JA3 

IM'lt  V 

DC  i>  J  ( *J  1 1  1 N  i>  1  OL-  loNll) 

3Z 

0U05 

6/  1  1(4.'  46001 

ApI'LNL*  J  A  I-IA 
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* 


01706 

yl'/y? 

00*50101 3460 

7Al  03000*0  b*4 

OUTPK  UCL* 

3{ttM  UUTSlULlOlUl  > 

*6000006 

01/10 

63o43i4*<:30i 

0 1 7  U 

00*60 1013*60 

0*  6000U6 

0  1  /It 

7^0*3001 316* 

i<PPl<  tKL* 

J  (  *l-i  lUUNlVJ »  3h  UMO) 

0  1711 

A  '3*  603730330 

Ul/l'l 

6v*o*.t>*6U33* 

*6003007 

o  1  /  l  L»  “1  00041  0  U00>0 

Pi  MON 

0P*0«0P+V 

0171b  -1  00406  0  UU174 

PO  NON 

OP+lOOtO iOP+109 

*6006006 

Ol/i7 

7*010*3000* * 

MON  t'to 

*<  l4huMUi0tMTS  AKL>l4u.0> 

*306000V 

01/40 

4bA  A*.  1*4  36  364 

t 

0  1  /  4  1 

604 13 1430623 

017*4 

040033103*60 

0*3000 10 

01  /4J 

7*0*30^03 16* 

UKPPK  bCo 

3(*M  UUNN3»JH  UMUJ 

0i/44 

43* 603  * 303  iy 

• 

017/1* 

60*6404  6033* 

*6006011 

017/0 

*7  4  10  30.2  43*3 1 

LKP  OCO 

3P»T  T LKW  16  WKUNo 

017/7 

A6o\*>  lo460C*0 

017  JO 

51*6*64  7606U 

*5000014 

01  /j] 

7*010030604* 

UOOt  ISCo 

6(1  ON  uOSt.  SUM  SMI  0  »  4  Li/O  •  0  1 

U1/J4 

*66^4301)046* 

0 1  /  J  > 

*-164*^0100*1  3 

0  1 7  J  4 

0446O4OC3J  10 

01/31* 

3*60o06060o0 

*3001*01  3 

017  JO 

7*0 1 0*3  .-■060  3  » 

KuP  bCI.' 

*(16H  KANDOM  NUMULKr Ml4  1 

01737 

4  1  *!>«.*  *o-i  A  oO 

01 /AO 

*3ul»*A 6  j  i 

-  — 

0174  1 

1 3*3010#  3*60 

U  *  ’.» 0  i»  0 1  * 

0  1/44 

J'UUJUOUA  VjI 

pRouir  i»cw 

*(MWKUblT  1  oNO  •  1 0U6  t 

0  1/43 

»G/.& J  1  <i  ,*u00 1 

0  1  /Am 

l»0*60o/ 30100 

0  1  /A'.' 

*'»0j3A6063o0 

ARK AY  0 1 UKA6L 

*6000400 

01  /*  6 

common  ).;»5 

1 

*5oOo40l 

U  i  75  6 

Me An  063 

40 

0*60«ii0t 

1*4  VO  1 

U  i*HOil»i  i J 

O  .  «/•' 

•'*  3  0  \  •  i*  *.  0  J 

0/00/ 

0  00000  0  00000 

M.'iUM 

*0001*20* 

07  00  J 

0  (*0000  0  UOllUO 

Ml 

*6001141*6 

04  UO* 

U  oooou  0  Ov/OOO 

M4 

46  0011406 

0*00 1* 

0  UOwOO  (»  VOOOO 

Mj 

46oOtt40V 

04  ooo 

0  (*0000  o  ooooo 

M* 

*600U«-00 

0200  7 

0  ot.ufjj  (>  UuilOu 

Mj 

46oUl>4*V 

04010 

0  00600  0  UuOOO 

KLPC 

*6-u«4  15 

0401  1 

0  OOOOO  O  OOlM  0 

KLP 

*5  wi/t>4  lo 

Olltl 

I»k0 T  h,,  . 

IS 

o*  5oi>4  K  i  iH" 

V AH  1 AuLLo 

*5  o  Ob  3  IM* 

04014 

0  OOOOO  0  (*(>000 

X  l>  1 1*1 

*y UOU  3 io 

0*0l  J 

o  ooooo  0  (*0000 

ro  im 

*6005311  ’ 

04014 

0  OOOOO  0  ooooo 

!(>1M 

*600*1312 

04  Ul  6 

0  OOOOO  0  0001*0 

M  IA  A 

*6uob3 1 3 

0*ul<> 

0  O0V0U  0  OOOOO 

MM  A  A 

*5uub J 1* 

04  01  f 

O  60600  0  0WO(- 

VIII  H 

*60vB3  16 

0*U*  0 

0  UUOOO  0  OvOOO 

AO 

*60  </b  316 

0*u4  1 

0  OOOOO  0  Xjuoo 

Y  0 

*6  -7i/b  j  1  / 

04 1)4  4 

0  OOOOO  0  O00(>0 

A  1 

'«i'b01>?lU 

1*4  0/  J 

0  00006  0  OOOOO 

Yl 

M  IM  -  OW  J  *  V 

020*4 

0  OOOOO  0  Ooooo 

A06 

63*0 

0*0«  'j 

0  00006  0  OlM'UU 

1  6(j 

l>3t  1 

04  04  0 

0  ooooo  o  oooOo 

UOL  A 

*9000444 

04  04  1 

0  Ooooo  0  00*00 

OILY 

H 

*  jouli  34  3 

U4u  J  0 

0  OOOOO  0  OOOOO 

OL  L 

*6 00b 34* 

04  OJ  1 

U  00006  U  UO0O0 

H  A 

<-  6  itf  3*’  6 

APPENDIX  l-H 


PAOt  10  i 


svi* 

7%  .SAP  .1-7  ASSHMHLY  Oh 

OVERLAY 

PROGRAM 

PAUL  14 

0  vowov  y  gyyuu 

MY 

— - - 

-  - - 

43006326 

Oiu-’S  0  OUOOO  u  OUOGO 

k&u 

4yi)0y  3  27 

1‘zyJ*'*  o  .oooow  o  .  uuut'o 

01  A- 

.  ... _ 

. . . . . 

_ _ 41*006  3  20.. 

o  00000  0  00000 

Oi  AY 

43006327 

0r’0J6  o  ouuutf  y  uooto 

y  r 

’ 

. 

4300H33U 

0200Y  0  00000  0  00000 

YIP 

4  3  000331. 

Oiid'iO  0  00000  0  OOuOO 

i'AU  N 

“Shv/00  33* 

O^ijai  0  ooooo  o  ouooo 

MlJNC 

.*3 

O/ioOi  0  00000  0  00000 

N&IG 

A'.'OOfli  .>4 

02  (>'*3  0  00000  0  00000 

i  1 6MA 

4l>L>0b3  4J 

O.'OAA  0  00000  0  coooo 

Gilo 

4 >006 3 30 

u2i)4b  0  0O000  y  OUUUO 

NON  T  •( 

4>UU6 J  3  / 

02040 

3  I0.*1aY 

libb 

1 

4!  Uo.i3  30 

02047  0  OOuOO  o  00000 

X 

0  3  37 

02  0> 0  0  00000  0  ooooo 

r 

02001 

OP0P 

Ob-> 

A 

o*:oii^ 

P  KOt» 

1 

0-  .-Oo3'i2 

NUM.RIC  CONbTANfb 

A^iUto  y  oy 

020L’ J  +0000w0000t>n' 

21 KU 

i)L(. 

0 

4  1*0  00  9  10 

(V<P'*  *0000:>000(>(I01 

Jr 

Dl* 

1 

4  bOOiO  1 1 

u2u'j!>  +oooooCuoooi»«: 

2 

DLL 

2 

m  L»L'Do  3 1 2 

(u'OVfr  ♦oooounonooo1.* 

>r 

DLL 

!> 

A>OoOJ>  »3 

ri/0b7  +  QOA00oC)00Ol 1. 

1  Or 

dk«: 

in 

4. ‘006  >14 

U  <.  00  U  +U0U0U0U0UO14 

l  <-h 

dll 

Ac 

4:m*u(i1»  1  J 

+ooyy^uoou 

77  h 

DLL 

7  J  . 

iu 

020<»2  ♦OOOOOU»UOl44 

loyK 

DLL 

100 

4>i»ob9l  7 

02063  ♦OOllOdOUOO  i  ‘.0 

2  00h 

DLL 

700 

4>(»06S»,  J 

U2004  0  00006  U  000  OG 

6L 

i.TU 

U  i  0  ♦  0 

4l»OOh>17 

(i.iuo'j  +cuooiJOJOJ>:.<  l 

9  b 

DLL 

77777 

4  '30l>»  9. 

OdOGo  'CdOODOGOOOY'l 

*:  t>h 

01  t 

20 

LOOK. CL  COM..  1  AMU.  ANL> 

MAfcfcS, 

4>ilG!J  UOO 

U200 /  +QU0U0UU7uU00 

L^AL) 

DLL 

260/2 

AliguUGiv 

liijlo  0  0001'  (I  i>GOl<! 

MOD 

IITK 

lllM)|l« 

470 Do  6 J 1 

0207  1  *-2  MOOOOOOOOU 

M  -2 

OCT 

2  3  JDOOOOOOOO 

41mi0U(j)2 

020*2  *000000400000 

Kill 

OLT 

400000 

4>OOd6l3 

uduO  “uuyuwouwoyyu 

LI  1  i 

ol  r 

4(JUUUOOUUUUU 

40000014 

020/4  “OiK  uuU^UUOOu 

:.lbbi 

UL  1 

<»UUuUo<»UUuUU 

4 >0060 l > 

o*o/»  +Mnnjinn 

b  l  (»CM 

OlT 

nmnrnu 

4 >0 DM&16 

J  j  /  0  •  (<0..M)Ui>3  1 !  i  1 1 

1  .»( kll. 

Ul  1 

jinn 

4>UubO 1 1 

U20//  o  Vo  too  0  IIUUOO 

I‘I0I* 

NOP 

0Ai>GbOlS 

02  100  o  04<}»l)  01642 

1  KA 

IRA 

•U»MUN 

04  J  01161 V 

0U3*O 

UNO 

POXl  1 

4 >007 97V 

:iiiMiL  w.»ur  u  :>(AiiMKt 

)  API.  101 AL  1  r  AIL 

/  h  A  1 L 

J  »  A  1  L  4  f-  A  1  L 

INP  »16  0 

0 

0  0 

l.  ill  0  0 

0 

0  0 

LOt  el  1 1)  0 

0 

0  0 

NuP.lli. K  D»  Of.“Lli4t  IM'UI  Hi  •  0'A»j 

o 

NU.iul.lt  l»h  Oh  h  -L  1  imL  Pi<  1  U 1  KLCUHi'v 

*o/ 

HUM, ILK  01  bYM.jOL.it  OL.  l/VtUUOl- 

U'UNUlh  () 

O‘*>00  MALL  UlLHIu  t. 

UflUli 

(.7  4 

Vl  1  Ui  27  1  /  i\j  1  1  Ml u  1 2V 1 

b  /» ^ 

i 

3'/ 
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SAMPLE  INPUT  FOR  OVERLAY  PROGRAM 


DEC  1,5. 3.2,1. 0*6*3*0,0*-3»2*0«20, 30517578123*5  __j  _  _ _ ;  CARD  1  ... 

DEC  1, AO, 80. 120, 160  '  CARD  2 

_ DF_C_200 ,190*180 _ _ _ ; _ r  ARn  3- 1 _ 

DFC  1  50  • 140 , 130  ’  CARD  3-2 

DEC  100.90*60  J  . . 1  .CARD  3-3 

DEC  60,50,40  .  .  CARD  3_4 

DEC  10.6,0  _  .  CARD  3-5 

DEC  99999*99999 *99999,99999  *99999,99999 ,9999V  , 99999 ,99999 ,99999  CARD  4 

_ DEC_  1.5, 3*2,1  , 0,-6. 0,0*0. -3*2»  0,40*0*4 _ _ _ CARD.  1_ 

DEC  1.20.60*190  ,  CARD  2 

DEC  200.190.180  _ '  _  _ _  .  ___•  CARD  3-1 

DEC  150,140,130  CARD  3-2 

_  DEC  100.90,00  _ _  _ _ • _  _ CARD  3-3 

DEC  60,50*40  CARD  3-4 

_ _ 0FC;_t0.6»O _ __ _ '  _ ■ _ C  A  P  D  _3  -3 

DEC  99999*99999,99999,99999*99999,99999.99999,99999*99999,99999  CARD  4 

DEC  6.6  .  ...  _ _ _ _ .  _.  _ _ _  CARD  5-1 

DEC  14.7  CARD  5-1 

_  4>FC  10,6  .  _ _ _  _ _ _ 1 _ CARD  5r6 

DEC  0.0  CARD  5-7  ' 

DEC  6*6 _ _ _ CARD_5-1 _ 

DEC  6,7  CARD  5-2 

_ DEC  6,0  _ _  .  .  _ ’.CARD  5-3 

DEC  8,6  CARD  5-4 

_ DEC  10,6  _  ..  .  .  ,  .  .  CARD  5-6 

DEC  14.6  '  CARD  5-7 

_ _ ,DF f_0  ,0 _ . _ _ _ _ _ _ _ CARD._3-9 

DEC.  1  ,5,3,2  .1  *0, -6*0, 0,0*-3  ,2,0*40*0,0  CARD  1 

DEC  200,190.180 _  _  _  _  _  CARD. 3-1... 

DEC  150,140,130  CARD  3-2 

_ DEC  100,90,60  _ _  _  _  . . .  .  CARD  3-3 

DEC60,50*40  CARD  3-4 

_ _ pEC_l  0.6,0 _ , _ _ CARD_3- 

DEC  99999*99999*99999,99999,99999,99999,99999*99999,99999,99999  CARD 

-  DEC  6,7  . .  .  .  . .  . _ CARD  5-1 

DEC  B.8  CARD  5-7 

_  DEC  6.(1  _  '  TARO  4- , 

DEC  6.6  .  CARD  5-4 


DEC_9 ,6 _ 

DEC  2'. 11 

OF  C  0,0  _ 

DEC  1. 10 
DFC  5.6 
DEC  3.5 

DEC  10,4 _ _ _ 

DEC  9.6 
DEC  8,13 

DEC  11,10  . 

DEC  0,0 

DEC  1,5* 3, 2, 1,0, 6*3,0, 0*3, 2, 0*50 *30517578123,0 

_ OF  C_?00 ,190,1  80 _ 

ore  l '»o.i4o',i i 
ore  1  DO ,90,60 
DEC  60.50,40 
OF  C  10.6.0 

DEC  99999 *  99999 *99999*99999,99999, 99999 ,99999,99999 

_ DEC _ 1  '  y.JJ,?  ,  l .  1  ,  6j  0.1_3_,_3_,  3 , 2 ,1*20,3051  /6  7  8125,0 

DEC  200,190.180  ~  ^  A4?*u - 

DEC  150,140.130 

DEC  100,90,80  ‘ 

DEC  60.50,40 
DFC  10.6,0 

DEC  99999, 9999*1  *99999, 99999  *99999 *99999  *99999, 99999, 4999'), 49009 


.99999,99999 


_CARD_5  -5  _ 
CARD  5-6 
.CARD  5-7 
CARD  5-1 
_C ARO  5-2 
CARD  5-3 
_CARD_5-4_. 
CARD  5-5 
CARD  5-6 
CARD-  5-7 
CARD_5-II 
CARD  1 
_CARD_3-1._ 

CARD  3~? 
CARD  3-3 
CARD  3-4 
CARD  3-5 
CARD  4 

—CAKO _ 1. 

CARD  3-1 
CARD  3-2 
CARD  3-3 
CARD  3-4 
CARD  3-4 
CARD  4 


£*  y 
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WOB  OAtOOFV  HALL  H  FINAL  OVERLAY  ROUfTSfe  AUGUAT  III  19*1 

- L00_0 - - - - - MU 

CO40J  OCT  302123002108 

01441  OCT  .053400202053 _ _ _ , 

01430  OCT  034000202101 

-01454  OCT-040000100174 _ 

01742-  OCT  741030004751 

TRA  _ _ 


■ 

MEOUTPUTV 

APPENDIX  I-C 

PAGE  3 

— 

~ma 

. . .  MACMI 

ROM  OVERLAY  program 

FOR  SAMPL  t 

PROBLEMS 

PAGE  2 

KUN  l  Of  2 

.  0.699600 

DOSE  SUMS 

BCE  0* 

0.69960000B  0* 

CLASS 

0 

a* 

*B 

12  9<~ 

120"  “ 

■  r**  ■ 

-  164' 

102 

2l* 

inside 

20  _ 

. o . 

_  0„. 

1  1 

» 

1 

* 

2 

0 

OUTSIDE 

1* 

a 

2 

1  3 

i 

0 

1 

. .  o  - . ' 

'  0* 

CLASS 

2*0 

26* 

2SS 

3  U  336 

360 

. .  ’  3B* 

*00 

.  *32  ■ 

*66 

INSIDE 

0 

2 

1 

2  0 

l 

0 

0 

0 

2 

OUTSIDE 

0 

0 

0 

0  0 

0 

6 

0 

0 

0 

PROBlT  lo* 

3  »•  ' 

-  lo"  l 

20  0 “ o 

6  0 

6  i 

0  0 

0 . 0  0  0 

o . 

CLASS 

0 

.  2*  ’ 

- *8  ■  - 

...  .  12  »{ 

. .  120 

l** 

....  ..  16S 

■  192  . 

216  — 

1  NS  1 DE 

.  *v 

29 

29 

2  V  26 

23 

20 

19 

10 

8 

OUTSIDE 

v& 

u  "" 

1 

6  .  i 

2 

1 

•-  r 

5 

0 

CLASS 

2*0 

26* 

2a« 

312  336 

'  360 

31* 

*08 

*32 

♦66  . 

INSIDE 

a 

1 

e 

3  3 

3 

2 

2 

2 

2 

outside 

0 

0 

6 

0  0 

0 

0 

0 

o  ■■■■■• 

0 

■'MOMENTS  ARE  " 

— 0. 

6B3B3332E  02 

0.11A6OmE0» . . -0.  34291663E  07 - 

D.12Q16963E  lo  — 

ff»**»B07»9t  -12^- 

RANDOM  NUMBER*  16I7B292S95 


RUN  2  OF  -  2  ■ 
EoSl  SUMS 

2332 

.  0*699600008 

0*  0.69960000E 

04 

■  — 

. 

CLASS 

0 

2*  ‘ 

-  45_  7l  - 

96 

“120" 

.....  U4 .... 

168 

192 

216“ 

INSIDE. 

16 

0 

7  2 

0 

6 

0 

5 

2 

4 

OUTSIDE 

87 

2 

0  2 

'  o' 

'  2 

■  "  0 . 

a 

0 

-T— - Q~  ■ 

CLASS 

2*0 

26* 

288 .  312 . 

~~  336 

'360  * 

38* 

"  *08 

- *32  - 

- *54 

INSIDE 

0 

0 

I  * 

0 

i 

0 

0 

0 

.  1 

OUT  SIDE 

0 

0 

0  0 

0 

0 

.  0 

0 

0 

.0 

pftoniT  1q3 

2  ir  — 

B  •  6  20  0 

0  0" 

0 

0  0  0 

0 

0 . 0  0" 

- 0  ^  - 

CLASS 

0 

.  2* - 

*8 . 72' 

.... 

"120 

144  " 

-  7*8 

- 192  -■ 

- 216'  ~ 

INSIDE 

*9 

33 

33  *  26 

2* 

24 

IB 

18 

13 

n 

OVISIUL 

95 

a 

6  6 

4 

4 

j 

.  ...  y 

0 

0 

CLASS 

2*0 

2** 

288  312' 

.338 

360 

38* 

*08 

*32 

.  *66 

INSIDE 

7 

7 

7  6 

2 

2 

1 

1 

1 

l 

OUTSIDE 

0 

0 

0  0 

0 

0 

0 

0 

0 

- 'O' 

'  MOMENTS  ARE - 

-  0, 

AB3I3332E  02 

0.ni79277ED» 

0*3 13630  39E 

07 

0. 10010*69E 

lo 

'0434963611E 

12  ' 

RANDOM  NUMBER* 

muittii 

** - 

I 
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MACHINE 

OUTPUT  FROM 

overlay 

PROGRAM 

FOR 

SAMPLE 

PROM.  F.  MS 

PAGE 

3  _ 

INPUT 

1. 

5  . 

. 3. . 1 .  2 . 1 

_  .0.. 

_ . .  0 

...0 _ _ 

.0,.  . 

3  .... 

”2 . 

,-Q 

.  40  . 
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Description  of  Program  Using  Analytic  Die semination  Function 

The  function  of  the  program  can  he  told  quite  briefly.  Into  a  rectangular 
target  area  of  arbitrary  dimensions  munitions  are  distributed  in  any  one  of 
three  ways,  viz.,  their  co-ordinates  may  be  read  in,  or  they  may  be  generated 
in  either  a  uniform  random  or  an  elliptical  normal  pattern.  At  each  point  of  a 
sampling  grid,  which  normally  is  superimposed  upon  the  target  area,  the  total 
dosage  is  computed,  using  the  equation 

D(x,y,T).  - 
^erf  [(u  T^x) 

Dosage  is  converted  to  dose  by  the  application  of  a  breathing  function  and 
the  probability  of  a  casualty,  is  assayed  by  means  of  an  arbitrary  dose 
LlireohoM  or  by  employing  the  problt  method. 

When  the  probit  method  is  used  the  program  scores  the  P  values  in  a 

c 

sixteen-bar  histogram  and  also  computes  the  first  five  moments  at  the  P 
•  c 

distribution. 

Several  important  program  controls  should  be  discussed  at  this  point. 

The  parameter  ITRAT,  when  larger  than  one,  causes  the  entire  program  to  be 
repeated  until  this  parameter  is  counted  down  to  one  or  until  the  control 
exercised  by  the  parameter  EPS©  intervenes.  Prior  to  each  iteration  the 
parameters  SUMX  and  SUMY  are  augmented  by  the  parameters  DEI, UK  and  DEISY 
respectively,  thus  increasing  the  density  of  points  in  the  sampling  grid.  The 
parameter  EPS,  when  zero,  oendB  the  program  to  the  dose  threshold  scheme  of 
casualty  determination. 

Whenever  the  arithmetic  mean  of  ?c  for  an  iteration  is  different  from  that 
for  the  previous  iteration  by  on  amount  less  than  EP3,  the  run  is  terminated, 
final  prints  of  histogram  and  moments  are  made,  and  the  next  run  Is  sought.  If 
all  iterations  called  Tor  are  done  and  the  KPS  criterion  huo  not  been  met,  the 
last  two  moments  sets  are  printed. 

All  doses  and  Pc  will  be  printed  if  FROPT  is  other  then  zero.  This  para¬ 
meter  is  also  consulted  in  order  to  guarantee  the  printing  of  the.  histogram 


and  momenta  when  certain  paths  are  traversed. 

When  N  is  one,  a  single  munition  is  placed  at  aero,  aero  and  the  dose 
along  each  ordinate  is  printed  in  fixed  point,  scaled  so  that  the  largest 
dose  will  not  equal  or  exceed  2^  nor  bo  smaller  than  zero.  This  output 
is  then  useful  as  a  udg  ■■  the  overlay  program. 


A  starting  random  number  may  be  Introduced  in  octal  form  Into  the  cell 
RANDM.  if  this  cell  la  set  to  zero*  the  program  assumes  the  starting  random 
number  Is  already  present. 

Input  Is  of  the  variable  field  type  terminated  vith  a  TRA  3,4 
Instruction  card.  Any  number  of  runs  may  be  placed  consecutively. 
Termination  of  operation  must  be  accomplished  by  heading  an  N  of  zero 
followed  by  THA  3,4.  No  other  parameters  need  be  input.  When  munitions 
are  to  be  read,  their  coordinates  in  alternating  X  and  Y  are  placed 
immediately  after  the  TRA  3,4  card  for  the  basic  parameters  and  their 
loading  is  terminated  vith  TRA  3,4.  Errors  will  result  if  there  are  not 
exactly  N  coordinate  sets. 

Output  begins  vith  a  verification  print  of  the  input  parameters  and 
continues  vith  a  print  of  the  last  random  number  used,  if  munitions  were 
generated,  and  thei locations  of  munitions.  The  numbers  of  X  and  Y 
points  in  the  sampling  grid  are  given  next  followed  by  optional  dose 
and  Pc  print.  The  Pc  values  are  printed  only  when  the  probit  method  is 
used  in  their  determination,  finally  there  is  printed  the  appropriate 
summary  information,  such  as  the  histogram  and  moments. 

The  breathing  function  B(T)  is  currently  being  computed  from  the 
formula  B(t)  *=  CQ  +  CjT  *  Cg  T2 

Following  is  a  list  of  the  34  input  parameters,  whose  functions  are 
indicated.  An  atileriuk  identifies  those  quantities  which  must  be  in 
fixed  point,  and  the  dagger  the  one  parameter  which  must  be  in  octal  form 
when  used  at  all.  All  other  numbers  must  be  in  floating  point,  i.e., 
must  have  a  decimal  point  unlesB  they  are  zero. 


«  N 

*  CHOOZ 

AZRO 

AONE 

BZRO 

BONE 

A 

B 


■  Number  of  munitions 

Oi  Read,  It  Uniform  random,  2:  Elliptical 
normal 

Minimum  x  cool'd! nates  of  target 
Maximum  x  coordinate  of  target 
Minimum  y  coordinates  of  target 
Maximum  y  coordinates  of  target 
The  "a”  of  dissemination  equation 
The  "b"  of  dissemination  equation 


ALFX 

ALFY 

ALFZ 

KX 

KY 

LMKZ 

BETA 

U 

QZRQ 

T 

CZERO 

CONE 

BZRO 

AZR05 

XZRO 

YZRO 

XMAX 

YMAX 

*SUMX 

♦SUMY 

♦DEIflX 

♦DEI/3Y 

♦ITRAT 

EPS 


These  are  the  subscripted 
alpha  quantities  of 
the  dosage  equation 
K  sub  x 
K  sub  y 

Lambda  over  square  root  of  K  eub  z 

Beta 

U 

Q  sub  zero 
Time 

Breathing  function  parameter 

Breathing  function  parameter 

B  sub  zero  of  probit  formula 

A  sub  zero  minus  5  of  probit  formula 

Minimum  x  coordinate  of  sampling  grid 

Minimum  y  coordinate  of  sampling  grid 

Maximum  x  coordinate  of  sampling  grid 

Maximum  y  coordinate  of  sampling  grid 

Number  of  sampling  ordinates 

Nxtmbcr  of  sampling  aboissae 

Increment  to  SUMX  on  iterations 

Increment  to  BUMY  on  iterations 

Number  of  iterations  of  the  run 

Epsilon,  the  arithmetic  mean  threshold 
criterion 


♦PROPT  0:  No  doBe  print,  1:  Print  dose 

+RANDM  Starting  random  number 

FCPVm  Width  parameter^ 


(l)  The  "width"  on  which  the  histogram  counts  are  made  ie  governed  by  FCPWR. 

This  fractionation  of  the  interval  from  zero  to  one  Is  the  inverse  of  two  to 
the  power  stored  in  FCPWR.  This  power  can  be  any  number  zero  to  nine  inclusive, 
thus  the  interval  can  range  from  one  to  1/512.  Changes  in  FCPWR  must  be  made 
In  binary. 
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Sample  Data 

Data  card  formats  for  three  typical  runB  are  given  below.  The  first 
run  requires  two  munitions  to  be  read  in,  the  Becond  1b  a  one -munition  run 
for  generating  a  unit  dissemination  grid,  and  the  third  requests  generation 
of  25  munitions  distributed  in  an  elliptical  normal  pattern.  Note  the' 
dummy  run  which  serves  to  terminate  operation. 


DEC 

2,  0,  0,  63.O,  0, 

34.0,  0,  1.0, 

0,  0,  0 

DEC 

79.183,195.782,  .: 

112,  1.75,  120 

.0,  1.0,  2.0 

DEC 

.5,  0,  1.0,  -4.0, 

0,  0,  63.O,  34.0  ,  64,  35 

DEC 

0,  0,  1,  .0001,  1 

.0 

TRA 

3,4 

DEC 

30.0,  32.0,  4o.o, 

32.0 

TRA 

3,4 

DEC 

1,  0,  0,  63.0,  0, 

34.0,  0,  1.0, 

0,  0,  0 

DEC 

79-183,  195.782, 

.112,  1.75,  120.0,  1.0  ,  2.0 

DEC 

15,  0,  0,  0,  0,  0 

,  63.0,  34.0, 

64,  35 

DEC 

Oj  Of  1 f  Of  Of  0 

TRA 

5,4 

DEC 

25,  2,  0,  050.0,  1 

0,  850.0,  .53, 

2-9,  .29 

DEC 

.018,  .0014,  175- 

0,  95010,  .107 

,  1.5,  134.0 

DEC 

34890.7,  .05,  1.61968,  0,  1.0, 

-4.0,  0,  0 

DEC 

850.0,  850.0,  26, 

26,  5,  5|  2, 

.00001,  1 

OCT 

343277244615 

TRA 

5,4 

DEC 

0 

TRA 

3,4 

REM 

END  OF  JOB 
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01045 
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60000 
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02361 

01046 
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50000 
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01003 

0)047 

"0 

32000 

0 

02333 

01050 

0 

62100 

0 

01465 

01051 
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60200 

0 

02313 

01 0  j  2 
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O0100 

0 

02360 

01053 

0 

73400 

4 

00000 

01054 

-0 

63400 

4 

01673 

01055 

•0 

63400 

4 

01774 

01056 

0 

40000 

0 

02356 

01057 

0 

62100 

0 

01621 

01060 

0 

62100 

0 

01623 

01061 

0 

60000 

0 

02360 

01062 

0 

40200 

0 

02375 

01063 

0 

62100 
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01673 

01064 
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01774 

01065 
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01066 
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01067 
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01070 
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01071 
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62100 

0 

01540 

01072 

0 

40200 

0 

67000 

01073 

0 

62100 

0 

01562 

01074 

0 

62100 

0 

01231 

START 

0*0*0 

MON  N*0*N+63 
NAODR  CLA  N 

TNi  **2 
TSX  ENOJOB *4 
TSX  XPRJNT*4 
PZE  FORM *0»FORM 
TSX  OUTPUT *4 

FORM l #0 » 9 
MON  N*0'|RANDM 
TSX  RRFA»4 
STO  8SUBT 
CLA  NINE 
SUB  FCPWK 
ALS  ? 

STO  AD  I  NO 
ALS  18 
ADD  EXPO 
STO  FIXER 
CLA  FCPWR 
STA  *42 
CLA  ONL 
,  ALS  *• 

STO  FCNOX 
SUD  ONL 
STO  TEMP A 
ALS  1U 
ADO  FIXER 
STO  FCA 
CLA  TEMPA 
ADO  ONL 
ADO  FLUTR 
FAD  FlOTR 
STO  TEMPS 
CLA  ONEF 
FOP  TEMPB 
STO  CJT 
CLA  NAUDK 
ANA  MASK 
STA  CLKFC 
SUB  ONL 
STO  CNN TAD 
PAX  0 i 4 
SXD  FCO»A 
SXD  FCE»4 
ADO  ADINC 
STA  FCD 
2T  A  f CL 
LLA  C»MAD 
SUB  1EMPA 
STA  F CD 
STA  FLL 
STA  2 TULA 
STA  2TUL0 
STA  2TULC 
STA  ZTUtO 
STA  MULE. 

SUB  N 
STA  ETULA 
STA  CTULU 


INPUT  PROGRAM 
PARAMETERS 


FORM  SKIP 

PRINT  PROGRAM 
parameters 

EXIT  TO  GET  BIT! 

SET  UP  HISTOGRAM 
SUBROUTINE 


GtT  INTERVAL  SUE 
FOR  HISTOGRAM 


BEGIN  ALLOCATION 
OF  UPPER  MEMORY 
WITH  ASSIGNMENT 
or  SPACE  TO 
histogram 


ADDRESS  reus  one 
OF  2ETA  TAULL 


ADDRESS  PLUS  ONE 
OF  LTA  TABLE 
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0  50000  0  67032 

CLA  5UMX 

COMPUlt  DELTA  X 

01431 

0  40200  0  02313 

SUU  ONE 

AND  DELTA  Y 

4  50  00 

014J2 

0  40000  0  02335 

ADD  FLOTR 

4&0l)U 

014J3 

0  30000  0  02335 

FAD  FLOIR 

45000 

01434 

0  60100  0  02375 

STU  TEMPA 

45000 

01433 

0  50000  0  67030 

CLA  XMAx 

45000 

01*06 

0  30200  0  67026 

F&D  X2KO 

46000 

0  14  J  7 

0  24100  0  02375 

F DP  IE MPA 

46000 

01440 

-0  60000  0  02350 

STO  1NCUX 

46000 

01441 

0  50000  0  6/033 

CLA  SUMY 

45000 

01442 

0  40200  0  02313 

SUM  ONE 

46000 

01443 

0  40000  0  02335 

ADO  FLUTh 

46  000 

01446 

0  30000  0  02335 

F AD  FLUTk 

46  OUU 

0144b 

0  60100  0  0237b 

MU  1EMPA 

46000 

01446 

0  50000  0  67031 

CEA  YMAX 

45000 

01447 

0  30200  0  67027 

FSO  Y2K0 

H5UU0 

01450 

0  24100  0  0237b 

F  DP  TEMPA. 

4500O 

014  31 

-0  60000  0  02351 

5T«i  IntkY 

45000 

01462 

0  50000  0  6  ro?6 

CEA  X/.ivU 

460UU 

0 14  6  J 

0  30*00  0  02*60 

1  SU  InUKX 

INITIAL  Ul  CURRENT  X 

46000 

01454 

0  60100  0  02 15 i 

MO  CUM  IX 

45000 

01455 

0  56000  0  0  ■!  3 *.» () 

LDu  |nCi<X 

45000 

014  >6 

0  20000  0  02.15  1 

FMP  IHOI'Y 

45000 

01457 

0  60100  0  02375 

STO  TEMPA 

45000 

01460 

C  24100  0  02354 

F DP  TAKOA 

45000 

01461 

-0  60000  0  02 3b 3 

STW  CULFF 

PARAIILl  LRS  FOR 

4  6(10  0 

01462 

0  60000  0  02  JO 5 

M2  PC/ 

OPTIONAL  DOSE 

45000 

01463 

0  60000  0  0 2  J 6 4 

612  i-CH/ 

CAl  LOLA  1  | UN 

46000 

01464 

0  53400  4  02346 

LX  A  F  C  NOX  »4 

45004 
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01463  0  60000  A  00000  CLRFC  STZ  *»i» 

01466  2  OOOC1  4  01463  T|X  »-l|4il 

01467  0  53400  4  02315  LXA  rlVC.4 

01470  0  50000  4  02411  CLRM  CLA  NE»M|4 

01471  0  60100  4  02404  STO  OLOM|4 

01472  0  60000  4  02411  5T2  NEWMt4 

01473  2  00001  4  01470  T I X  CLKM.4.1 

01474  -0  53400  4  02344  1X0  YN0Xi4 

01475  0  50000  0  67027  CLA  YZRO 

01476  0  02000  0  01500  TRA  »+2 

01477  0  30000  0  02351  F AO  IIKKY 

01500  0  60100  4  OOOOO  YTBL8  STO  «**4 

01501  '2  00001  4  01477  T1X  «-2i4»l 

01502  0  56000  0  6  7032  LDu  SUM*. 

0 !5o3  0  20000  0  67033  MPY  SUMY 

01504  -0  60000  0  02375  STO  TtMPA 

01505  0  50000  0  02375  CLA  TEMP A 

01S06  0  40000  0  02335  AUO  FIOTR 

01507  0  30000  0  02335  FAD  FLOTR 

01510  0  60100  0  02347  STO  IJFLT 

01511  0  02000  0  01512  SUTBR  TfiA  SUTN 1 

01512  0  07400  4  02114  SUTN1  7SX  SSUTiA 

01513  0  02000  0  01531  SUTNA  TRA  JtSTN 


clear  counts 

49QQQ 

IN  HISTOGRAM 

4*000 

*5000 

MOVE  MOMENTS  AND 

0*000 

clear  for  next  set 

4*000 

4*000 

4*000 

4*000 

4*000 

4*000 

45000 

STORE  V  TABLE 

45000 

*9000 

COMPUTE  M 

4*000 

431)00 

4*000 

**000 

49000 

45000 

4*000 

45000 

01514 

SPAR 

as* 

13 

4*000 

02*31 

0 

50000 

0 

67000 

testn 

CLA* 

N 

01*32 

0 

40200 

0 

02313 

SUB 

ONE 

45000 

01533 

0 

10000 

0 

01*37 

T2E 

TNA 

4*000 

01*34 

0 

50000 

0 

02342 

CLA 

NOP 

04902 

01*3* 

0 

60100 

0 

01*75 

STO 

OPRTN 

04*02 

01*36 

0 

02000 

0 

01546 

TRA 

GO 

4*000 

01*3? 

0 

*3400 

1 

02313 

TNA 

LXA 

ONE  *  1 

4*000 

01*40 

0 

60000 

1 

OOOOO 

ZTBLE 

STZ 

**»1 

place  munition 

01*41 

0 

60000 

1 

OOOOO 

etble 

STZ 

*#«1 

AT  ZEHOi  ZERO 

4*000 

01*42 

0 

50000 

0 

02340 

CLA 

RELC 

01*43 

0 

60100 

0 

01579 

STO 

DPRTN 

04*02. 

01*44 

0 

07400 

4 

70013 

TSX 

XPR 1  NT  1 4 

6*000 

01545 

0 

02740 

c 

02727 

PZ  E 

FORMNiO*F0RMN+0 

4*000 

01*46 

0 

*3400 

1 

67032 

GO 

LXA 

SUMX  *  1 

01*47 

0 

02000 

0 

015*0 

TRA 

NtWX 

45000 

01*50 

~0 

63400 

1 

02343 

NEWX 

-SXD 

XNDX » 1 

01*51 

0 

50000 

0 

02350 

CLA 

INCKX 

04*02 

01**2 

0 

30000 

0 

02357 

t  AO 

CRNTX 

04*02 

01**3 

0 

60100 

0 

023*7 

STO 

CRN  TX 

STORE  NEW  XIT1 

4*000 

015*6 

-0 

*2600 

1 

02346 

LXO 

YNOX* 1 

4*000 

01*** 

0 

60000 

1 

OOOOO 

L  TULA 

STZ 

••)1 

M  1  Ah  DUS'  <f  U  S 

4*000 

01**6 

l 

OOGOl 

1 

01**5 

T1X 

»“lf l»i 

49000 

015*7 

-o 

53400 

1 

02345 

LXO 

KUOXtl 

4*000 

01*60 

~0 

53400 

2 

02344 

STEPS 

LXO 

YNOX  •  2 

4*000 

01*61 

0 

*0000 

2 

OOOOO 

YTBLA 

CLA 

*«  *2 

GENERATE  TABLE 

4*000 

01562 

0 

302  00 

1 

OOOOO 

ETBlA 

FSB 

0»  ru»-LfA(X) 

49000 

01*63 

0 

60100 

2 

OOOOO 

YDIM 

STO 

•«  »2 

«>  CONST  ANT  » J  RUNS  1 

49000 

01*64 

2 

00001 

2 

01561 

T  1  X 

YTBLA *2  1 1 

49000 

01*65 

-o 

53400 

2 

02344 

LXO 

YNOX *  2 

4*000 

01*66 

0 

30000 

0 

023*7 

CLA 

CPNTX 

EXIT  WITH  XI  1  J-ZLTAU) 

46000 

01*67 

0 

30200 

L 

OOOOO 

2  TBLA 

FSU 

«•  1 1 

IN  ACCUMULATOR  TO 

45000 

01570 

•*0 

12000 

0 

01572 

TMl 

•42 

Gt  T  DOSL  ALONG  Xl  l  ) 

01*71 

0 

07400 

4 

02163 

TSX 

oust!  4 

DUE  TO  MUNITION  K» 

45000 

01*72 

2 

ooom 

1 

01560 

T1X 

S 1 LP i  ♦  1  *  1 

NEW  MUNITION 

01*73 

0 

50000 

0 

6  7040 

CCA 

PROP  f 

ItSt  K  UK  Oust  PRINT 

4btiuu 

01*74 

-0 

10000 

0 

017*0 

TNZ 

opnhT 

04*02 

01*75 

0 

76100 

0 

OOOOO 

DPftTN 

NOP 

TO  El XPT  TOR  1  MUNI T1 UN 

U49U2 

01*76 

-o 

*2400 

1 

02344 

LXO 

YNOX  t 1 

049  02 

M'IUIH‘1*  I  I  "I*. 
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015  V  7 
01600 

0 

76100 

0 

ooooo 

0 

50000 

1 

00000 

01601 

0 

10000 

0 

01606 

01602 

0 

07400 

4 

67106 

01603 

0 

60100 

0 

02375 

01606 

0 

56000 

0 

02376 

01605 

0 

26000 

0 

67024 

01606 

0 

30000 

0 

6/025 

0160/ 

-0 

76000 

0 

00004 

01610 

0 

07400 

4 

02762 

01611 

-o 

76000 

0 

00002 

01612 

0 

10000 

0 

01614 

01613 

0 

40200 

0 

0231/ 

016)4 

0 

60100 

1 

ooooo 

01615 

-0 

3000U 

0 

02335 

01616 

-0 

73400 

4 

OOOOO 

01617 

-3 

otooo 

4 

01621 

01620 

0 

07400 

4 

70026 

01621 

0 

50000 

4 

OOOOO 

01622 

0 

40000 

0 

02313 

01623 

0 

60100 

4 

OOOOO 

0  162  A 

0 

5  34  00 

4 

02313 

01625 

0 

60000 

1 

OOOOO 

01626 

0 

10000 

0 

01642 

01627 

0 

02000 

0 

01636 

01630 

0 

30000 

0 

02375 

016*11 

0 

40200 

0 

02321 

01632 

0 

12000 

0 

01634 

01633 

0 

02000 

0 

01641 

01636 

0 

66000 

0 

02373 

01635 

0 

26000 

1 

OOOOO 

01636 

0 

60100 

0 

02375 

01637 

0 

30000 

4 

02411 

01640 

0 

60100 

4 

02411 

01641 

2 

00001 

4 

01630 

01642 

2 

ooooi 

I 

01600 

01643 

0 

50000 

0 

6  704(1 

01644 

"C 

lOOno 

0 

01763 

0  164  5 

-0 

53400 

1 

0214-J, 

01646 

i. 

00001 

1 

01530 

01647 

0 

5  3400 

It 

02  315 

01650 

0 

50000 

A 

024  1  1 

01651 

0 

24  100 

0 

02  36  7 

0165  2 

-0 

60000 

4 

02411 

0  i  i* 3 
0165  4 

0 

UliOOi 

50000 

0 

6  /040 

01663 

“0 

10000 

0 

01767 

01656 

0 

53400 

4 

02  315 

0165/ 

0 

5:Yooo 

4 

02404 

01660 

0 

30200 

4 

02611 

01661 

0 

76000 

0 

00003 

oi6or. 

0 

702  00 

0 

0  70  3  7 

01663 

0 

12000 

0 

0  1700 

01644 

0 

1.0000 

0 

6  7040 

01646 

•  r\ 

loo  00 

0 

01000 

01666 

n 

0/4  00 

6 

7  000/ 

01667 

0 

000  1 1 

0 

0/  4  12 

01470 

-l 

02  iM 

0 

02  161 

01671 

0 

07400 

4 

/U007 

o  1 1  ■ : 

0 

00011 

o 

7 

OW  3 

-1 

00000 

0 

oooon 

01674 

0 

0  7400 

4 

70007 

OPTPC 

NOP 

OR  TRA  OP 1 4 

43000 

45000 

STEP* 

CLA 

m 

*«  il 

FA0A2 

04502 

TSX 

LOO  i  4 

COMPUTE  PIC) 

45000 

STO 

TEMP  A 

43000 

LOO 

TEMP  A 

43000 

FMP 

132LKQ 

45000 

FADA2 

FAl’ 

AZU03 

u430«: 

IFH 

TSX 

EI<F*  3*  4 

43000 

LFM 

TZL 

DTULD 

U4yUc 

3UU 

MP  1  WO 

DTHUD 

o  TO 

**  »1 

045  02 

STEP* 

UFA 

FI  XLR 

SCORE  IN  HISTOGRAM 

04  3  0* 

POX 

0*4 

43000 

FCA 

T  XL 

*♦2*4*** 

4  3  0CU 

TSX 

LRKDMP*4 

PIC)  LXCLLOS  i 

43  OUl) 

FCU 

CLA 

*«  *4 

43000 

AOO 

ONE 

PLUS  ADDRESS  OF  LOWEST 

*(5oOO 

FCC 

STO 

ID  ,4 

PKOUAU 1 L I T Y  COUNTER* 

4 '.,»(!  On 

5TLP6 

LXA 

F 1 VL i 4 

GINLKATt  MOMENTS i 

430U0 

DTULE. 

CLA 

**  »1 

43000 

TZL 

CYCL+1 

IihjOl 

TRA 

OTULF+1 

04302 

I10MT 

CLA 

TUMP  A 

SUM 

MAG 

TPL 

UTULF-1 

fK  A 

CYCL 

LOO 

TLMI'A 

45000 

DTtJLF 

FMP 

**  »l 

4  J  U  Uu 

STO 

TEMP  A 

4?0u0 

FAD 

NLW,Mf4 

**  30  UU 

•p  TO 

MLWM*4 

4  3UUU 

CYcL 

T1X 

MOM 1 *4  « 1 

T1X 

3Tt*‘4»l*l 

43000 

CLA 

PHUPT 

43000 

TNZ 

PPRM 

PRINT  OP  HON  IMU 

43y  00 

PHUN 

L  XU 

X/IDX#  J 

4  3  w  uO 

TlX 

NLWXtltl 

45000 

LXA 

FIVE** 

430  uO 

CLA 

ML  WM t 4 

430UU 

1  OP 

1  JFLT 

43i-v»0 

STO 

MWM*6 

4  3000 

*  1  X 

1  •  » 4  i  5 

430  OU 

vlrt 

prop  r 

430  00 

TN2 

no  m 

To  PR  INI  MM)  •  M  ( iv ) 

4  36  00 

1  MK  T  N 

LXA 

r  |VL*4 

6  *.■>•06 

Cl  A 

0LUM*4 

4  30\J0 

rsi. 

NLWtt • 4 

43006 

SSP 

Tl  Si  AN  1  HiMul  IE  Ml  AN 

4  3Uo6 

FMi 

M’S 

IHKLSltULU  CKlTtKloN* 

4300U 

!  PL  MU’7 
«.LA  PROP  I 
INI  S  I  All  T 

OUT  A  TSX  uyTI  UT  »4 

I  OlvM A •<)»•/ 


4  jUUO 
4  JOUO 
4 

43OU0 

H^yuo 


MON  EUHo.cUT 
I  sx  on  h  ut  *4 
I  »I-IM  •lif'i 

f  CL>  MOll  »  ■  #0  *  J  1 
ISX  UUfi  UT  »4 


A  3(1  ou 
4  3l)UU 
43000 

»  RLOULNCY  LUUNT  4SUUU 

AND  MGMLNlS  PRINT  4>uuu 
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01675 

0  OOUll  0  02433 

FQRMC  »0 1 9 

45000 

46000 

45000 

01676 

01677 

-l  02410  0  02404 

0  02000  0  OlOOO 

MON  flEWM-8tO»N6WM-l 

tra  start 

01700 

01701 

0  50000  0  67036 

0  40200  0  02313 

STEP?  CLA  1  THAT 

SUB  ONE 

45000 

01702 

017.03 

0  60100  0  67036 
-0  10000  0  01741 

STO  1  THAT 

TN2  NHANS 

46000 

01704 

0  07400  4  70013 

T$X  XPR 1  NT i4 

4&OO0 

01705 

0  02452  0  02445 

PZE  FORMEiO  »F0RME  +  8 

45000 

01706 

0  07400  4  70007 

TSX  OUTPUT ♦ 4 

45000 

01707 

0  00011  0  02440 

FOKMD»0 » 9 

45000 

01710 

“1  02403  0  02377 

MON  QU>M-5tO#OLi/n-l 

45000 

01711 

0 ' 50000  0  67040 

CUA  PROP? 

45000 

01712 

0  10000  0  01666 

TZE  OUTA 

45000 

01713 

0  02000  0  OlOOO 

,  tra  start 

(DTAOL) 

45000 

01714 

0  50000  1  00000 

0PT4  CIA  *»»1 

45000 

01715 

0  4Q200  0  02323 

SUB  PT75 

OPTIONAL  CASUALTY 

01716 

0  12000  0  01724 

TPL  *♦& 

DETERMINATION 

45000 

01717 

0  50000  0  02365 

CL  A  PC2 

43000 

01720 

0  40000  0  02313 

ADO  ONE 

45000 

01721 

0  60100  0  02365 

STO  PCZ 

43000 

01722 

2  00001  1  01714 

TJX  0PT4  > 1 1 1 

45000 

01723 

0  02000  0  01730 

TRA  XTEST 

45000 

01724 

0  50000  0  02364 

CLA  PCNZ 

43000 

01725 

0  40000  0  02313 

ADD  ONL 

45UIMJ 

01726 

0  60100  0  02366 

STO  PCNZ 

46000 

01727 

2  00001  1  01714 

T1X  0PT4U.1 

45000 

01730 

-0  53400  1  02343 

m ST  LXD  XNDX*1 

45000 

017  3  L 

2  OCOOl  i  01550 

1 IX  NtWXUil 

45000 

01732 

0  07400  4  70007 

TSX  UU  f PUT  1  4 

45000 

01733 

0  00011  0  02433 

f ORMF *0*9 

45000 

01734 

01735 

01736 

-i  02365  0  02363 

0  50000  0  67036 

0  40200  0  02313 

MON  COEFF»0»PC2 

CLA  1  THAT 

sun  ONE 

45000 

01737 

01740 

0  60100  0  67036 

0  10000  0  OlOOO 

STO  ITKAT 

TZE  START 

45000 

01741 

0  50000  0  67032 

NHANS  CLA  SUMX 

45000 

01742 

0  40000  0  67034 

ADD  OELSX 

45000 

01743 

0  60100  0  67032 

STO  SUMX 

45000 

01744 

0  50000  0  67033 

CLA  SUMY 

45000 

01745 

0  40000  0  67035 

ADD  DtiLST 

45000 

01746 

0  60100  0  67033 

STO  SUMY 

45000 

01747 

0  02000  0  01400 

TRA  RENTS 

45000 

OlK'O 

0  60200  0  0*343 

PRINT  OPTIONS 

Drum  cls  andx 

PRINT  DO SL 

46000 

43UU0 

01751 

0  77100  0  00022 

ARS  18 

450U0 

01752 

0  40000  0  67032 

ADO  SUMX 

460U0 

01753 

0  60100  0  02366 

STO  NLTX 

4S0U0 

01754 

0  07400  4  70007 

TSX  OUTPUT, 4 

45000 

01755 

0  00011  0  02467 

FORMOiO  t  9 

450U0 

01756 

-l  02366  0  02366 

MON  NETX»0»NETX 

45000 

01757 

0  07400  4  70007 

TSX  OUTPUT  *4 

45000 

01760 

0  0001 1  0  02474 

FOHMH #0 » 9 

43000 

017  6  1 

-1  00000  0  OOOOO 

OPRTA  MOM  ••*0»*» 

TOTADL-J 1 • (DTADL-1 1 

45000 

01762 

0  02000  0  01575 

TRA  DPR  T  N 

45000 

01763 

0  0 7400  4  7000/ 

PPRNT  TSX  OUTPUT #4 

PRINT  PSUUt 

45000 

01764 

0  0001 l  0  02474 

fORMlUO*  9 

43000 

01765 

-l  OOOOO  0  OOOOO 

PPRTA  MON  *»»0i** 

l[)TABL-JI  #1DTAUL“1 1 

43000 

01766 

0  02000  0  01645 

Tra  ppktn 

45000 

01767 

0  07600  4  70007 

PH  7  M  TSX  OUTPUT  #4 

PRINT  F HLUUtNcY 

43000 

01770 

0  0001 l  0  02412 

FORMA #0#  9 

COUNT  AND  MOMENTS 

43000 

01771 

“l  02361  0  02361 

MON  CUT  »0»CUT 

46000 
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49000 

45000 

01772 

01773 

0 

0 

07400 

OOOlI 

4 

0 

70007 

02427 

TSX 

OUTPUT  *4 

FORMS • 0 • ? 

01774 

-1 

00000 

0 

ooooo 

FCE 

MON 

**lOi** 

COUNT 

4&O00 

01775 

0 

07400 

4 

70007 

TSX 

OUTPUT  »4 

01776 

0 

00011 

0 

02433 

FORMC iO  1 9 

, 

49000 

01777 

-1 

02410 

0 

02404 

MON 

N6WH-6  *0  |NEWM-1 

* 

04502 

02000 

0 

02000 

0 

01656 

TftA 

FMR7N 

45000 

PRINT  IN  FIXED  POINT 

04502 

02001 

-0 

50000 

0 

01555 

FlXPT 

CAL 

3TB  LA 

04902 

02002 

0 

62100 

0 

02055 

STA 

F1XPS 

04502 

02003 

0 

62100 

0 

02063 

STA 

F1XPH 

04902 

02004 

0 

40200 

0 

67033 

SUB 

SUMY 

04502 

02005 

0 

62100 

0 

02006 

STA 

FJXPA 

04502 

02006 

-0 

50000 

0 

OOOOO 

PUPA 

CAL 

•• 

GET 

SCALE 

FACTOR 

04502 

02007 

0 

10000 

0 

02077 

T2E 

F1XPK+1 

04502 

02010 

0 

12000 

0 

02012 

TPL 

»+2 

04502 

02011 

0 

07400 

4 

70024 

TSX 

END JOB #4 

045U2 

02012 

0 

60100 

0 

02375 

STO 

tempa 

04902 

02013 

0 

50000 

0 

02341 

CLA 

seld 

04902 

02014 

0 

60100 

0 

01575 

STO 

DPKTN 

04502 

02015 

0 

50000 

0 

01761 

CLA 

DPRTA 

04502 

02016 

0 

60100 

0 

02076 

STO 

FIXPK  , 

04502 

02017 

0 

50000 

0 

02375 

CLA 

Tfc  MPA 

04502 

02030 

0 

34000 

0 

02331 

CAS 

LIMIT 

04502 

02021 

0 

02000 

0 

02036 

’TRA 

F1XPC 

04902 

02022 

0 

76100 

0 

OOOOO 

NOP 

04502 

02023 

0 

30000 

0 

02322 

CLA 

ONLF 

04502 

02026 

0 

60100 

0 

02371 

STO 

MPYtR 

04902 

02025 

0 

36000 

0 

02375 

FlXPB 

LOO 

Tt  MPA 

04502 

02026 

0 

26000 

0 

02326 

FMP 

TENF 

04502 

02027 

0 

60100 

0 

02375 

STU 

TEMPA 

04902 

02030 

0 

40200 

0 

02331 

SUB 

LIMIT 

04502 

02031 

0 

IP  000 

0 

02051 

TPL 

F1XPE 

02032 

0 

56000 

0 

02371 

LOW 

MPYtR 

04902 

02033 

0 

26000 

0 

02326 

FMP 

TENF 

04502 

02034 

0 

60100 

0 

02371 

STU 

MPYtR 

04502 

02035 

0 

02000 

0 

02025 

TRA 

FIXPB 

04*02 

02036 

0 

50000 

0 

02320 

FIXPC 

CLA 

TtNTH 

04502 

02037 

0 

60100 

0 

02371 

STO 

MPYEK 

04502 

02040 

0 

56000 

0 

02375 

FIXPD 

LOO 

TEMPA 

04502 

02041 

0 

26000 

0 

02320 

FMP 

TENTH 

04502 

02042 

0 

60100 

0 

02375 

STO 

TEMPA 

04502 

02043 

0 

40200 

0 

02331 

SUB 

LIMIT 

04502 

02044 

-0 

1-1 000 

0 

02  061 

T  Ml 

f  1XPL 

0450* 

02043 

0 

56000 

0 

02371 

LDO  MPYfck 

04502 

02046 

0 

26000 

0 

02320 

FMP 

TENTH 

04B  02 

02047 

0 

60100 

0 

02371 

STU 

NPYER 

04502 

02050 

0 

02000 

0 

0204  0 

TRA 

F  I  XPO 

04502 

02051 

0 

07400 

4 

70007 

FIXPE 

TSX 

OU  TPUT • 4 

PRINT 

SCALE  FACTOR 

04902 

02052 

0 

0001 1 

0 

02741 

FORMOiO  *9 

04502 

02053 

-1 

02371 

0 

02371 

MON 

MPYtR »0  •MPYEK 

04502 

02054 

-o 

53400 

1 

02344 

FIXPF 

LXD 

YNDX » 1 

04502 

02055 

0 

36000 

1 

OOOOO 

F  IXPG 

LDO 

'•»! 

04502 

02056 

0 

26000 

0 

02371 

FMP 

MPYtR 

SCALL 

TW 

I’OtfLK  UF 

t>45  02 

02057 

-0 

30000 

0 

02335 

UFA 

FLOIM 

TEN 

NIX  T 

UL  LOW 

04602 

02060 

-0 

77300 

0 

00010 

MOL 

6 

2««17 

AND 

f  ix 

02061 

0 

76000 

0 

00010 

RND 

02062 

•0 

32000 

0 

0  2332 

ANA 

MASK  A 

02063 

0 

60100 

1 

OOOOO 

FlXPH 

STU 

•••1 

04502 

02064 

2 

00001 

1 

02059 

TJX 

FlXf’Otl  *1 

04502 

02063 

0 

30200 

0 

02  343 

CL  S 

xribx 

04502 

02066 

0 

77100 

0 

00022 

AR5 

11 

04502 
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2* 

SAP  3“ 

•7 

ASSEMBLY  OK  ANAL  Y  1 1  £  Dl  SstMl  NA  UUN  KUNC1I0N  t’RUORAM  PACE  10 

02067 

0 

40000 

0 

67032 

A&u' 

'SUMX 

02070 

0 

60100 

0 

02366 

STO 

NETX 

02071 

0 

07400 

4 

70007 

TSX 

OUTPUT *4 

02072 

0 

00011 

0 

02467 

PORNO iOi9 

02073 

-1 

02366 

0 

02366 

MON 

NETX.OiNETX 

02074 

0 

07400 

4 

70007 

TSX 

OUTPUT. 4 

02075 

0 

00011 

0 

02751 

PORMP  .0.9 

02076 

-1 

00000 

0 

00000 

F1XPK 

MON 

**»o»«* 

02  077 

-0 

53400 

1 

02343 

LXD 

XNDX  *1 

02100 

2 

00001 

1 

01550 

TIX 

NE.WX  till 

02101 

0 

02000 

0 

01000 

TRA 

START 

BREATHING  FUNCTION 

02102 

0 

56000 

0 

67022 

BRFA 

LDQ 

C2LR0 

02103 

0 

26000 

0 

67021 

FMP 

T 

02104 

0 

60100 

0 

02375 

STO 

TEMP  A 

02103 

0 

56000 

0 

67021 

LOO 

T 

02104 

0 

26000 

0 

67021 

FMF 

T 

02107 

0 

60100 

0 

02376 

STO 

TEMPB 

02110 

0 

56000 

0 

02376 

LOO 

TEMPO 

02111 

0 

26000 

0 

67023 

FMP 

CONE 

02112 

0 

30000 

0 

02375 

PAD 

TEMP  A 

02113 

0 

02000 

4 

0000) 

TRA 

1.4 

TRANSFER  PARAMETERS  NEEDED  UY 

SUTTON  E0UAT10N  SUbKOUTlNE 

02114 

-0 

63400 

4 

02136 

SSUT 

sxo, 

1  SA VI V*4 

02115 

0 

50000 

4 

00002 

CL  A 

2*4 

02116 

0 

62100 

0 

02272 

STA  RUNY 

02117 

0 

62100 

0 

02274 

STA 

RUNY+2 

02120 

0  '50000 

4 

00003 

CL  A 

3.4 

02121 

0 

62100 

0 

02305 

STA 

SUMO 

02122 

0 

62100 

0 

02306 

STA 

SUMO+l 

02123 

1 

77760 

4 

02124 

TXl 

•+1.4.-16 

02124 

-0 

75400 

4 

00000 

PXD 

0.4 

02125 

0 

76000 

0 

00006 

COM 

02126 

0 

7  7100 

0 

00022 

ARS 

18 

02127 

0 

62100 

0 

02131 

STA 

*♦2 

02130 

0 

5  3400 

4 

02136 

LX  A 

SAV1V.4 

02131 

0 

50000 

4 

00000 

CLA 

*»  >4 

02132 

0 

60100 

4 

02152 

STO 

8T*1.4 

02132 

2 

00001 

4 

02131 

TIX 

*“2.4.1 

02134 

“0 

6  3400 

4 

02136 

LXD 

SAV1V.4 

02135 

0 

02000 

4 

00001 

TRA 

1.4 

02136 

0 

00000 

0 

00013 

< 

c 

HTR 

11  .0.0 

ollllUN  tvJUATlLN  I'AKANLUiiS 

02137 

0 

00000 

0 

00000 

SBtTA 

HTR 

III.  TA 

02140 

0 

00000 

0 

00000 

ALP  XU 

HTR 

AlPix i iu*»utTA  > 

02141 

0 

00000 

0 

OOOOO 

ALFiU 

HTR 

ALPJ2)  (U**ULTA|-(ALI  I  X  1  1  U#  ■  Ut  T  A  1 

02142 

0 

00000 

0 

00000 

ALP  YU 

HTR 

ALF(YMU*'»BI.TAI-ALM2  )  |  U«« ULT  A  1 

02143 

0 

00000 

0 

OOOOO 

UUVKV 

)«TK 

- 1  U*  »llt  T  A »  /Kf  Y) 

02144 

0 

00000 

0 

00000 

PKfcFX 

HTR 

CONSTANT  MULTIPLIER 

02145 

0 

00000 

0 

OOOOO 

UOVKX 

HTR 

IU«»ULTA l/KIXI 

02146 

0 

00000 

0 

OOOOO 

ur 

HTR 

U*T 

02147 

0 

noooo 

0 

OOOOO 

AVL 

HTR 

A 

02150 

0 

00000 

0 

OOOOO 

UOVHtl 

HTR 

U/U 

02151 

0 

00000 

0 

OOOOO 

or 

HTR 

0*  T 

SUTTON  EUJATIUN  VM<  1 AOL L j 

02152 

0 

00000 

0 

OOOOO 

XDJf  F 

HTR 

XI 11 » Al K) 

02153 

0 

00000 

0 

OOOOO 

t«rr 

HTR 

LKF  SOKT.LTC. 

02i54 

0 

00000 

0 

OOOOO 

SON  PA 

MTm 

Df.XTLW  NADICAND 

02155 

0 

00000 

0 

OOOOO 

scwru 

HTR 

SINISTER  k AD 1  LAN w 

02136 

0 

00000 

(> 

OOOOO 

e*pp 

HTR 

exponent  i-actuk 

0215  7 

0 

00000 

0 

OOOOO 

PART 

II TR 

Y-  IIIDLP  UNDENT  PARIS 

04502 
oalojs 
04502 
04502 
04502 
04502 
04502 
04502 
04502 
04502 
04502 
04502 
04502 
04502 
04502 
04502 
04502 
04502 
04502 
04502 
045  02 
04502 
45000 
45000 
45000 
4A000 
45000 
45000 
45000 
43000 
45000 

45000 

45000 

4&OO0 

45000 

45000 

45000 

45000 

45000 

45000 

45000 

•*  Jliou 
45000 


45000 
45UOO 
45000 
45000 
45000 
4  5000 
45000 
45000 
45000 
45vvU 
45000 
45000 
45000 
4  iiuOU 
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02160 

0 

ooooo  0 

ooooo 

EflFB 

HTR 

RIGHT  HAND'IrF 

4B000 

02161 

0 

QOOOQ  0 

ooooo 

RETNX 

HTR 

SAVE  INDEX  4 

45000 

02L62 

0 

OOOOO  0 

ooooo 

5TEMP 

HTR 

utility  CELL 

45000 

SUTTON  EQUATION 

SOLUTION  FOR  ALL  Y(!l 

45000 

FOR  A  GIVER  XII), 

Ki  TSX  DOSE i 4  WITH 

Xin-IETAIM  IN 

ACC  AND  T(J)META(K) TABULATED# 

49000 

REGISTERS  ON 6  AND 

TWO  ARE  SET  FOR  USE 

0216) 

-o 

63*00  4 

02161 

cost 

SXD 

RETNX*4 

X  MINUS  2ETA  IN  ACC* 

43000 

02164 

0 

60100  0 

02152 

STO 

XDIFF 

KEGS  la  2  FUNCTIONAL 

49000 

02165 

0 

10000  0 

02173 

us 

DOSE+I 

02166 

0 

07400  4 

671C6 

TSX 

LOG*  4 

43000 

02167 

0 

60100  0 

02162 

STO 

StEMP 

45000 

02170 

0 

36000  0 

02162 

LOO 

StEMP 

43000 

02171 

0 

26000  0 

02137 

FMP 

SBETA 

43000 

02172 

0 

07400  4 

67101 

TSX 

EXP.4 

49000 

0217) 

0 

20000  0 

02140 

FAD 

ALFXU 

49000 

02174 

0 

60100  0 

02153 

STO 

ERFF 

TERM  FOR  ERF  SORT 

49000 

02173 

0 

30000  0 

02141 

FAD 

ALF2U 

4900,0 

02176 

0 

60100  0 

02154 

STO 

SORFA 

49000 

02177 

0 

30000  0 

02142 

FAD 

ALFYU 

49000 

02200 

0 

60100  0 

02155 

STO 

SQRF3 

DERIVE  FACTOR  FOR 

49000 

02201 

0 

24100  0 

02143 

FDP 

UOVKY 

RIGHT  HAND  EXP* 

4SOU0 

02202 

-o 

60000  0 

02156 

STO 

EXPF 

45000 

0220) 

0 

36000  0 

02154 

LOO 

SQRFA 

43000 

02204 

0 

26000  0 

02155 

pUp 

SQRF8 

.  49000 

02205 

0 

07400  4 

67107 

TSX 

SORT  »4 

GET  SQUARE  ROOT 

43000 

02206 

0 

24100  0 

02144 

FDP 

PREFX 

begin  LEFT  BRACE 

49000 

02207 

-0 

60000  0 

02157 

STQ 

PART 

49000 

02210 

0 

30000  0 

02143 

CL  A 

UOVKX 

49000 

02211 

0 

24100  0 

02  153 

FOP 

ERFF 

43OO0 

02212 

*'0 

60000  0 

02162 

STO 

STtMP 

! 

02213 

c 

30000  0 

02  162 

CLA 

STtMP 

45000 

02214 

0 

07400  4 

67107 

TSX 

SORT *4 

43000 

02213 

0 

60100  0 

02153 

5TG 

EKFF 

45000 

02216 

0 

56000  0 

02153 

IDG 

ERFF 

4900b 

02217 

c 

26000  0 

02152 

FMP 

XDIFF 

4  5QUp 

02220 

-0 

76000  0 

00004 

LFM 

02221 

0 

40200  0 

02323 

SUB 

erft 

02222 

-0 

12000  0 

02223 

TMI 

■♦3 

02223 

0 

30000  0 

02322 

CLA 

ONLF 

02224 

0 

0200C  0 

02227 

TRA 

•43 

02223 

0 

40000  0 

02325 

ADO 

tMFT 

02226 

0 

07400  4 

02  753 

TSX 

ERF, 4 

43000 

02227 

0 

60 1 0(1  0 

o«:l6o 

5To 

Ltif  u 

A5PQ0 

02230 

0 

30000  0 

02  146 

CLA 

UT 

46UU0 

02231 

0 

30200  0 

02152 

FSB 

XDIFF 

45000 

02232 

0 

60100  0 

02162 

STO 

STtMP 

43000 

02233 

0 

36000  0 

02162 

IDU 

STtMP 

4SuOO 

02234 

0 

26000  0 

02133 

FMP 

EHFF 

4500U 

02233 

0 

76000  0 

00003 

56P 

f 

02236 

0 

40200  0 

02323 

SUB 

erft 

022)7 

-0 

12000  0 

02242 

TMI 

•  4  3 

02240 

0 

50000  0 

02322 

CLA 

ONLF 

02241 

0 

02000  0 

02244 

TRA 

4*3 

02242 

0 

40000  0 

02325 

ADO 

LHM 

02263 

0 

07400  4 

02765 

TSX 

LRF  ,4 

45000 

02246 

-0 

76000  0 

00002 

LFM 

02243 

0 

30000  0 

02160 

FAD 

EHFo 

43000 

02246 

0 

24100  0 

02157 

FOP 

PART 

4901)0 

02247 

-0 

60000  0 

0213  / 

ft  TO 

PART 

43000 

02230 

0 

50000  0 

02147 

CLA 

AYE 

4  9  000 

02231 

0 

lOOOO  0 

02272 

TIE 

RUNY 

49000 
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02252 

0 

50000 

0 

02152 

02  253 

0 

24100 

0 

02150 

02254 

-o 

60000 

0 

02162 

02265 

0 

50000 

0 

02  162 

02256 

0 

30200 

0 

02151 

02  257 

0 

12000 

0 

02272 

02266 

0 

07400 

4 

67101 

02261 

0 

60 1 00 

□ 

02162 

02262 

0 

56000 

0 

02162 

02263 

0 

26000 

0 

02147 

02264 

0 

76000 

0 

00002 

02265 

0 

30000 

0 

02322 

02266 

0 

60100 

0 

02162 

02267 

0 

56000 

0 

02162 

02270 

0 

26000 

0 

02157 

02271 

0 

60100 

0 

02157 

02272 

0 

50000 

2 

OOOOO 

02273 

0 

24100 

0 

02156 

02274 

0 

26000 

2 

onooo 

02275 

0 

34000 

0 

02  3  30 

02276 

0 

76100 

0 

OOOOO 

02277 

0 

02000 

0 

02301 

02300 

0 

02000 

0 

02307 

02301 

0 

07400 

4 

67101 

02302 

0 

60100 

0 

02162 

02303 

a 

56000 

0 

02162 

02304 

0 

26000 

0 

02157 

02305 

0 

30000 

2 

OOOOO 

02306 

0 

60100 

2 

OOOOO 

02307 

2 

00001 

2 

02272 

02310 

"0 

53400 

4 

02161 

02311 

0 

02000 

4 

00001 

02312  +OOOOOOOCOOOO 
02313  *000000000001 
02314  +000000000004 
02313  *000000000005 
02316  *000600000011 
02317  +001000000000 
02320  ♦175631463146 
02321  ♦110560736521 
02322  +201400000000 
02323  *200400000000 
02324  +202622077324 
02325  +2D«:/M14bJl‘> 
02326  +204500000000 
02327  +204600000000 
02330  “206 T4000000U 
02311  +2217/7777777 
02332  +000000377777 
02333  +000000077777 
02334  +343277244615 
02333  +233000000000 
02336  2  00000  0  00000 

02337  0  02000  0  01714 

02340  0  02000  0  02001 

02341  0  02000  0  02064 

02342  0  76100  0  00000 

OJ3A3  0  00000  0  00000 

02344  0  00000  0  00000 

02345  0  00000  0  OOOOO 


CLAXD IFF 
FDP  UOVRB 
STO  STEMP 
CLA  STEMP 
FW  13  T 
TPL  RUNY 
TSX  tXP*4 
STO  STtMP 
LOG  STtMP 
FMP  AYfc 
CHS 

PAD  ONfcF 
STO  STtMP 
LOG  STtMP 
FMP  PART 
STO  PART 
RUNY  CLA  +  •  *2 
FOP  fcXPF 
FMP  «»»2 
CAS  SaTYM 
NOP 

TRA  »+2 
TRA  SUMO +2 
TSX  tXP»4 
STO  STfiMP 
LOO  STtMP 
FMP  PAKI 
SUMO  FAD  ***2 
STO  ««*2 
TlX  RUNY *2*1 
LXO  Mb TNX»4 
TRA  1*4 

CONSTANTS  AND  kfcLADS 
ZERO  DEC  0 
ONL  DEC  1 
FOUR  DEC  4 
FIVE  DEC  5 
NINE  DEC  9 
MP1WO  DEC  1110 
TENTH  DEC  0*1 
MAO  DEC  l.OL-17 
ONtF  DEC  1.0 
P T 76  DEC  .75 
PI  DEC  3.14 13726 5 
tK*|  Ul<.  3*7 
TLN+  DEC  10*0 
TWELV  DEC  12.0 
SKfYM  DEC  -60*0 
LIMIT  OCT  221777777777 
MASXA  OCT  000000377777 
MASK  OCT  00000007777  7 
VPOWK  OCT  34327/244615 
FLUTH  OCT  23300000000 1) 

EXPO  T I  X  0*0*0 
RELA  TRA  OPT 4 
HtVC  TRA  FlXPT 
HELD  TRA  HXPF 
NOP  NOP 

PROGRAM-GENERATED  PARAMb  TfcKS 

XNOX 

YNOX 

KNOX 


DERIVE  l.EFT-HANO 
EXPONENTIAL 


Y-INDEPENDENT  PART 
OF  EQUATION  STORED* 
TIME  ABOUT  *0215  SEC* 


COMPUTE  DOSAGE 
AT  tACH  YIJ)  FOR  THIS 

munition  and  add 

TO  TOTAL*  TIME  FOR 
EACH  Y  ABOUT  *0034* 


10  GET  NEXT  K  Qlt  X 


46O0Q 

45000 

43000 

46000 

46000 

45000 


45000 

45000 

45000 

45000 

45000 

45000 


43000 

43000 

45000 

43000 

45000 

43000 

4&noo 

43000 

43000 

04502 

43000 

46000 

4300U 

U4602 

43000 

04502 

04302 

45000 

45000 

43000 
46000 
43000 
043  02 
04302 

45000 

46000 

43UU0 

43000 


'Vur-tNL- 1  * 


l  1  -ti 


Y 


U 1  c,  Y  f , 

7. 

«.An  v 

7 

A  MHI 

l. v  *Jf  an 

02346 

0 

00000 

0 

ooooo 

FCN0x“ 

02347 

0 

ooooo 

0 

ooooo 

I JFLT 

02350 

0 

00000 

0 

ooooo 

INCRX 

02351 

0 

ooooo 

0 

ooooo 

1NCRY 

02352 

0 

ooooo 

0 

ooooo 

XSPAN 

02353 

0 

ooooo 

0 

ooooo 

YSPAN 

0235* 

0 

ooooo 

0 

ooooo 

TARGA 

02355 

0 

ooooo 

0 

ooooo 

FIXER 

02356 

0 

ooooo 

0 

ooooo 

A&1NC 

02357 

0 

ooooo 

0 

ooooo 

CRNTX 

02360 

0 

ooooo 

0 

ooooo 

CRNTAD 

02361 

0 

ooooo 

0 

ooooo 

CUT 

02362 

0 

ooooo 

0 

ooooo 

UBETA 

02363 

0 

ooooo 

0 

ooooo 

COtiFK 

02364 

0 

ooooo 

0 

ooooo 

PCNZ 

02365 

0 

ooooo 

0 

ooooo 

PCZ 

02366 

0 

ooooo 

0 

ooooo 

NkTX 

02367 

0 

ooooo 

0 

ooooo 

NCVRN 

02370 

0 

ooooo 

0 

ooooo 

BSUBT 

02371 

0 

ooooo 

0 

ooooo 

MPYCR 

A  MAI.  y  I  I  (  l.'IV-IKI  NA  T  I  ON  Y  l»Nl  *  i  0*i  P 


02372  *00000000000* 


KCPtfK  DEC  * 


02373 

0  OOOOO  0  ooooo 

RX  SUM 

0237* 

0  OOOOO  0  ooooo 

RYSUM 

02373 

0  OOOOO  0  ooooo 

TEMP  A 

02376 

0  ooooo  o  ooooo 

TEMPO 

02*0* 

OLDM 

tl£S 

5 

02*11 

NCWM 

Bt  G 

6 

02*11 

016060606060 

f  okm 

BCD 

1  1 

02*12 

7*0600300060 

FORMA 

UCU 

6  l  l 

02*13 

2*3  162636131 

02*1* 

226  ••6331*6*5 

02*15 

60*62660*77* 

02*16 

733*7360*651 

02*17 

2*266 1752*60 

02*20 

*6*5256063*6 

BCC 

02*21 

60712561*673 

02*22 

6021636031*5 

02*23 

6326516621*3 

02*2* 

6260*63601*7 

02*75 

0125010 3 J306 

02*26 

3*6060606060 

02*27 

7*0230006001 

h  umMo 

oCl 

- ;  * 

02*T0 

06*30  70  L  7*0. 

02*31 

3060600 106*5 

02*32 

073*3*606060 

02*33 

7*010*300060 

F  ORMC 

L’CU 

5< 

02*3* 

*5  7  566oO***o 

02*35 

**25  *  5636  7*0 

02*36 

01*70576010* 

02*37 

3  30*.  3*C»0606ri 

02**0 

7*010*300060 

t  u>'My 

•<; 

5  ( 

02**  1 

*  6  *  3  2  *  6  0  *  *  *  * 

0  2**2 

*  *  2  5  *  5  6  1 6  7  *  0 

02**3 

Ol*  7u6 2 - 0 1  o-» 

02*** 

’  305  3* (*06060 

02**5 

0<>6 »  •-  1  3  1  6 

y  v;  f'E 

t'C7 

yr\ 

02**6 

10 . .  is  17 

07**7 

e*  o  4.  «• . '  :  4.  •  6  o 

02*5  0 

7  3  l 

02*5  l 

1  l*(  *  '  »>*•.**< 

0  2*5  7 

6  3b‘»*  •  ‘-t'M; 

o**-  J 

’-.1*0  l  -•  '00 6  0 

►  4. 

6  1 

PCO  ’ONt  1>-  A*  l  N  T  l  .<  V  AL  - 


kU  I'  O  \ '  j  ‘J  L  '•■ 


M  IN  f-  LOA1  INb 
DELTA  X 
DELTA  Y 
DIMENSIONS  OY 
IMPACT  A  lit  A  • 

A  R 1.  A  OP  TARGET 


HISTOGRAM  iNTLKVAL 
U* *BtTA 
U 1  X  \  *  0 1  Y  )  /  T  l  A  I 
(COLt-P  »PLZ  i  AND  Pc  Nil 
OK’ULKED  foK  PRINT) 

X  SUBSCRIPT  f-OK  PRINT 
CURRENT  RANDOM  NO. 
LiREATMlNG  Y  UNCTION 
CALL  F ACTOR 

MlilObKAM  FkACUQNATION 


ONOl.  '<LP 


l»’  1L  1  3. 5  I 


■  •  O  T  '*  L  T 


.  •  N  i 


*&0uU 
AS  000 
*6000 
*5000 
*5000 
*500u 
*5ugO 
*5000 
*5000 

*5000 
A  5  000 
*5000 

*6UU0 
*5000 
*♦  ?uuu 
'*SUU0 
*5oo0 
*5000 
0*502 


A  1)000 
*5UUU 
*5uGU 
AS  MOD 
*6000 
*5000 


*500  0 


“i-uO!/ 


’  i ■  ■ »  l  •  _cc0  ■  i»  i •.  1 
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A**PtM-7iX  li-P 


w  ;.r.s  . 

/.  ^4-*  4-7  AM- 

•LWOL * 

AfiAL' 

VII*:  PI  iO\  lt'Ot  TlO‘1  PN^:w  » 

02434 

456464222:51 

02455 

606251442562 

02456 

604762642223 

02457 

130147012601 

02460 

023304734607 

C  2  4o  1 

610206300060 

QCO 

6/26H0  NUM3EK  TIMES  HSU'JC*  2u<V.N7  » 

0246  2 

456444.?:255; 

02463 

606331442:62 

02464 

6047{>26422i3 

02465 

13607 126? 146 

02466 

••  30734606060 

0246  7 

740105300060 

f-OHMO 

BCD 

5I15H0  Dost  AwUNg  XlNj.ih)) 

02470 

24*«66 2  7.5602  i 

02471 

4  J  4  6  •»  5  <s.  7 6 0  6  7 

0  247  2 

7 44 iC. 4  7J0130 

0  2*73 

343460606060 

C  • » 

740230006001 

V  Of’f'M 

BCD 

5  (  2h0  lPVLl2.4/t;t  ‘3Ll  £.**)» 

024’  5 

471125010233 

024  76 

046174023060 

02477 

601 125010233 

02500 

043434606060 

/ 

02  j0  1 

7«»011  liuOOtO 

f  JMM1 

BCD 

M  iy»«0  Mo.VBtN  i4UU  1  f  1 0  . 3  5«»  J  «  '/H  JMk'n 

02602 

4  604  4/.;.  25  5  i 

02  jCj 

0  O'*  **  0  4  4  6  3 1  6  3 

02604 

3 14  6 4 •‘.•6  2  1  j4*j 

02506 

03  73  1  i  ? 06060 

025  04 

4647033 14643 

v:.  o" 

404 iCi 720730 

02.-  i  0 

60 t0 2 1 '40054 

BCU 

6  *»  1  0  1  *  1  P  1 1  1  1  •  3  «  /»1  *'.|  1  lulJ.3»/M  u 

02  511 

1 301470: 2501 

02512 

013303  7;073Q 

0,:5  i  J 

60602  1  *  4  0 1 .4,'» 

025  S4 

1  32.0101330.- 

025  16 

7  3 6  .'3  06060.  2 

0  2  5  1  6 

74  003  4  4 

aUO  :ul  l.  u  (  1)  - c. 1  1  •.'/"> .  -HU.; 

025  1  7 

01  3  ;  0  •  1  -•  0  7  3  0 

02520 

006  0*  2  740 1  .*4 

0252  1 

1  32.  - 0 1 1 J 1 J  JO 

02522 

6104  j 06060  2  . 

0*.  j*.  6 

1  *  -  0  *  u » .  j  6 

02524 

7  30‘».'  O’  Otp  *.  2 

uCt» 

6«“-  i.-“  ».  1  1  .  W  *  .  1  AL*  •  '3  1  X  )  J,.  t.ll'i 

025/6 

1 3  2  50  10*  5  ‘H  • 

02526 

41010  1  .-OoOtO 

02527 

2  1  '  **/,'  O  *  1  /  4 

025  *0 

6  7  .1  ..  /  O  iOi 

0*  J  » * 

3»OJ7.4CUil.*c 

02  6  U 

6  060*  *  *•  J  4  7  J  0 

UCU 

6  -.0'"£tv,  u  i  1  •  j.»  1  1*  •  "i'  (  -  I..I6  ii.J 

02  5  3  J 

2  1  /034  1  - 

026  J 4 

OlOl  ‘30.'  7Jo  i 

025  <6 

0  *  0.  1  -  ‘ 

025  M» 

•.  *  '  O.  1/471  .. 

0  2  5  y  7 

132*.pIO*3.  - 

0  2640 

6  10'  JO  >‘*6  4.. 

1  CO 

t  /  M»  1  -1  i  i  •  J  »  /  :  ■  •  1  t  )  =  L  |  1  .  iit'l 

0214; 

?4<.  7  ;  i'  .  0. 

C  2  54  4 

01  :  ’  ’  •  1  j  *  :  • 

0  2  *»  ••  3 

4  »•***.  •  •  T,  J  . 

0  2  5  4 

I  •  .  *  ‘  .  1  •  .  1 J  • 

0  2  5  •*  5 

’  •  .  •  O '  '  ’  1 

0*6 -.6 

*•  *  •  " . . 

C  i> 

U  .  ••  v.  V  ••  .  • '  ■  '.UI-SLjj*  /M!  <  L  l  M 

0  4  y  4  ' 

U  .- 

0  2  5 

*. .  . 

■J  v  -  » 

‘  1  *J-**J*rfU. 

7 S' 

4  JO  Ou 


*•  J  2  V  0 


•».»OVU 


450  *>0 


■ouuu 


•OwlMJ 


UL' 
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BESYS  SAP  3-7  ASSEMBLY  OP 

ANALYTIC  DISSEMINATION  FUNCTION  PRUGRAN  P AGE  15 

02562 

013303610730 

02553 

606022256321 

BCD  6  =  E10.2('tH  U=E11.3.7H  Q(0)  »EIA,6/4H  1 

02554 

1 32  501003302 

02555 

730430606004 

02556 

132501013303 

02557 

730730606050 

1 

02560 

740034122501 

02561 

043306610430 

BCD  0  T=Ell.3.7ll  C (  0  1  *E12.  A .SH  C 1 11  =£12.4/1311  SMaL 

02562 

606063 132301 

02563 

013303730730 

02564 

606023740034 

02565 

13250 1023304 

02566 

730630602374 

02567 

013413250102 

02570 

330461010330 

02571 

606062442143 

45000 

02572 

436022740034 

BCD  6L  B ( 0  T  Etl 1 1 3 1 15H  SMALL  AI01-5-LL1.3 

02573 

132501013303 

02574 

730105306060 

02575 

624421434360 

02576 

217400344005 

025/7 

13250 1013303 

45000 

02600 

610730606067 

BCD  S/7H  X<0)*EL1.3.7H  Y  1 0 ) *t 11 . J.9H  X 

02601 

740034132501 

02602 

013303730730 

02603 

606070740034 

02604 

132501013303 

02605 

731130606067 

02606 

74442 1673413 

BCD  6  (  MAX  1  =£  1 1  ♦  3.9H  YIMAXP=tn.3/'10H  TO 

45000 

02607 

250101330373 

02610 

113060607074 

02611 

442167341325 

02612 

010133036101 

02613 

003060606346 

02614 

63  214  J(>l)  6  7 13 

BCD  6TAL  X»NA»10H  TOTAL  Y«N4*9H  INCK  X- 

45000 

02615 

450473010030 

02616 

606063466321 

02617 

436070134504 

02620 

731130606031 

02621 

452351606713 

02622 

460373113060 

BCU  7N3.9H  INCH  Y»N3.22H  NO.  INCREMENTATIONS* 

45000 

02623 

603145233160 

0262  4 

7013'»5037Tn? 

02625 

023060604546 

02626 

33603 1432351 

02627 

254425456321 

02630 

633146456213 

02631 

450261010030 

BCD  7N2/10H  EPS!  LON**  E  11  1 3  t  1SH  PRINT  UPTION-Ni! 

45000 

026  32 

606025476231 

02633 

434645132501 

02634 

013JOJ / J0105 

02635 

306060475131 

02636 

456360464763 

026  37 

314645134502 

02640 

730205 JO 6 060 

BCD  9  » 23H  STARTING  RANDOM  NUMBER* 101 3 ) 

45000 

02641 

62632 1516331 

02642 

462760612145 

02643 

244644604564 

76> 

02644 

442225611301 

02645 

460103346060 

02646 

606060006060 

02647 

606060606060 

Af»PtNL>l  X  W-H  PACjt£  2Q 


♦ 


a 
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02650  606060606060  - -  -  - 

02651  606060606060  BCD  9 

02652  606060606060 

02653  606060606060 

02654  606060606060 

02655  606060606060 

02656  606060606060 

02667  606060606060 

02660  606060606060 
02661  606060606060 

02662  006044644531  FORM  J  BCD  40  MUNITIONS  LOCATED  AT- 

02663  633146456260 

02664  434623216326 

02665  246021634060 

02666  740230606001  FORMIC  BCD  9I2H  IP  1E1 1  •  3  ■  IE  11 . 3  t  E  1  3 . 3  >E  11 .  i  .  1 1 3 . 3  »E  1 1  >  3  I 

02667  470126010133 

026/0  03730 1230101 

02671  330373250103 

026/2  3303/3250101 

02673  330373250103 

02674  3303/3250101 

02675  330234606060 

02676  606060606060 

02677  74021  1300060  FORML  BCD  9(2'JH0  LAST  RANDOM  NUMBER  USED  WAS1013) 

02700  432162636051 

02701  214524464460 

02702  456444222551 

02703  606462262460 

02704  662162014601 

02705  033460606060 

02706  606060606060 

02707  606060606060 

02710  740106300060  FORMM  BCD  6I16H0  THIS  RUN  USES  N3il7H  VALUtS  OF 

02711  633031626051 

02712  644560646225 

02713  626045037301 

02714  073060652143 

02715  642562604626 

02716  606760214324  BCD  9  X  AND  N3ti2H  VALUES  OF  Y) 

02717  604003730102 

02720  006065214364 

02721  256260462660 

02722  IV  J4606<l6040 
02723  606060606060 

02724  606060406060 

02/25  606060606060 

02726  606G60606060 

02777  006062472523  FORMN  BCD  50  SPECIAL  ONL-MUNITION  RUN  FUR 

027. 10  312143604645 

02731  254044644531 

02732  633140456061 

02733  644560264631 

02734  6031454/6463  BCD  3  INPUT  TO  OVLKLAY  PROGRAM 

02735  606340604665 

02736  233143217060 

02737  4731462/5121 

02740  446060606060 

02741  740302300060  FORMS  BCD  6I32U0  DOSLS  HAVE  ULEN  MULTIPLIED  I3Y 

02742  244662236260 

02741  102166236022 


02744  262646604464 

02746  4363314  /4331 


7? 


4*000 


4&000 


U4*02 


04*02 


04*  Oi 


Am: mmx  ii-'.t 


pam- 


13  T,  SYS  2 
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AMALYIIC  SMSSEMINAI  IUN  KINCIION  PROGRAM 

PAGE  17 

02746 

252460227060 

-  •  - 

02747 

014701251033 

BCD  21P1E6.11 

02730 

013460606060 

027&1 

7 ‘>023000601 1  FORMP  bCD  4UH0  9N7/12H  9N7M 

043  V2 

02752 

4  50761 740230 

02753 

606011460734 

02754 

346060606060 

ERF  SUUROUTINE 

45000 

02755 

0  76000  0  00003  ERF 

SSP  LRRQK  FUNCTION  LN  TRY 

'  ERF  2 00 13 

02756 

0  60100  0  03052 

5 TO  COMMON* 1 

LHF  2U0.l*+ 

02757 

0  50000  0  03034 

CLA  ERF +4 7 

ERF  00  i  J 

02760 

0  60100  0  03024 

6 TO  ERF+39 

ERF  200 iO 

02761 

0  02000  0  02776 

TRA  EUF+17 

UhF /OUl • 

02  76  2 

0  12000  0  02770 

TPl  ERF*  L 1  NORMAL  FREQUENCY  FUNCTION  ENTRY 

ERF cuuxo 

02  76  3 

0  76000  0  00003 

SSP 

EKr  tuO  l3 

02764 

0  60 lOO  0  03052 

STO  COMMON*! 

LKT  /uOi-O 

02765 

0  5rHiOO  0  03025 

CLA  fcRF+40 

ERF  2uuc.  x 

02766 

0  60100  0  03024 

STO  i.Rf  +39 

LhFtUO/c 

02/07 

0  02000  0  02/73 

TRA  EHF+14 

l.M*'2U0« 3 

02770 

0  60100  0  03052 

STO  COMMON* 1 

Cl<F  2CQ24 

0277  1 

0  50000  0  03026 

CLA  ERF* 4 1 

ERF’  2  002  •> 

0277  2 

0  60100  0  03024 

STO  ERF+39 

ERF  20026 

02773 

0  56000  0  03062 

LDQ  COMMON* 1 

ERF  2U0*.  7 

02774 

0  26000  0  03047 

FMP  CRF+56 

LIU2U02U 

02775 

0  60100  0  03052 

STO  COMMON* 1 

LKF  2002  V 

02/76 

“0  63400  4  03025 

SXD‘ URF  +  40  a  4 

LKF  20020 

02777 

0  14000  0  03000 

TOY  tKF+19 

LKK  2U0 j  1 

03000 

-0  53400  4  03026 

L.YD  ERF  +  4 1  #4 

CKF  *-00  J 2 

03001 

0  60000  0  03051 

ST2  COMMON 

LUK20033 

03002 

0  56000  0  03051 

EDO  COMMON 

ERF fcOOJH 

03003 

0  26000  0  03052 

FMP  COMMON* 1 

LRf fcOo j J 

03004 

0  30000  4  03046 

FAD  EKF+57 »4 

EkF  20036 

03005 

0  60100  0  03051 

STO  COMMON 

LRF 2003  / 

03006 

2  OOOOl  4  03002 

TlX  LKF+21*4*1 

&KF2003U 

03007 

0  14000  0  03035 

TOV  E,<F  +  4tf 

LKF  200  J‘J 

03010 

-0  53400  4  03050 

LXO  L R K  +  3 V » 4 

lRF  200*0 

0301  1 

0  56000  0  03051 

LDU  COMMON 

tRF  *.0041 

0301  2 

0  26000  0  03051 

FMP  COMMON 

URF 20042 

03013 

0  60100  0  03051 

oTO  COMMON 

ERF  2004  J 

03014 

2  0000/  4  03011 

T  t  X  LKF42U*4#2 

LKF 20044 

03015 

0  14000  0  03035 

TOV  tl<F  +  40 

LKF 2 0043 

03016 

0  50000  0  03045 

CLA  LKF +36 

L  Kr  20046 

03017 

0  24000  0  03051 

Foil  COMMON 

LKF/ 004  / 

03020 

-0  60000  0  03051 

3 TO  COMMON 

t KF 20040 

03  0.’  1 

0  :»tmoo  o  o 

CL  A  ullF  • 

CKF 2004V 

0302  2 

0  30200  0  03051 

FSU  COMMON 

tRF  20030 

0302  3 

-0  53400  4  03025 

L XU  LKF  4  40 • 4 

tRF  20031 

03024 

0  761 00  0  00000 

NOP 

cRF  2  003  2 

03025 

l  00000  0  0102/ 

rxi  lkf+4/**o 

LKF  200V J 

03026 

1  0000/  0  0*030 

T  X 1  tRF  +  4  J  •  *  / 

LKF  2  00  3  4 

0302  7 

0  76000  0  00002 

CH  5 

UKF  2  00,3  3 

\n 

0  30000  0  03045 

F  AO  LKHH 

CRF  20036 

o  s  0  » t 

0  60100  0  0 3 0  •>  1 

STO  COMMON 

LKF  2oU3  / 

ri  \  r  \, 

0  56000  0  0303) 

LQO  COFihiOH 

LKF  20036 

0*n  \  i 

0  26000  0  0*046 

Fmp  ukr  +3 / 

LKF  2  003V 

030  U 

0  02000  4  00001 

TRA  1*4 

LKF  2U01»0 

03035 

0  50000  0  0)045 

CLA  L  N  F  +36 

LKF  200ol 

03036 

0  02000  0  0*023 

IRA  LMh  +  Jii 

tftF 20042 

0303/ 

♦  l6/  .->  i  J  /34  /  j 

OEC  *00004  i0<>36  •«0l)0/  /0\mW.  *.0001  ■ .  0  l  « 

»•  .00  /»  /03.  //. 

ERF  2 000 J 

03040 

♦  16544/000  705 

03041 

♦  1644  766300  7  1 

03042 

♦172457613506 

YS 
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03CA3  +174532277472  DEC  ,0422820 1 23 . .0705230784 , 1 .« .6. . 70710678 
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